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. 1. 


ASCII 

character e^uivalen 

res 


.OPOO ... 

. NULL. 

.. .. £QU 

POOOQOOOB 


Ny.U. 

4 

0007 

BELL 

EQU 

0000011 IB 

J 

Be n 

5 

.POPS. 

BS . 

.EQ.U.... 

..0000X0008. 


.B.ac.kfpa.ce... 

6 

0009 

HT 

EQU 

00001001B 

7 

Horizontal tab 

7 

OOOA 

LF 

EQU 

0000101OB 

? 

Line feed 

8 

00 OD 

CR 

EQU 

0000110IB 

1 

Carriage return 

9 

0011 

XON 

EQU 

0001000IB 


DC1 (XON) 

10 

0013 

XGFF 

EQU 

0001001 IB 

5 

DC3 (XOFF) 

11 

001S 

CAN 

EQU 

00011000B 

; 

Cancel 

12 

00 IB 

ESC 

EQU 

000110.1 IB 

? 

Escape 

13 

' 007F 

RUBOUT 

EQU 

0111111 IB 


Rubout / delete 


14 

15 


16 

17 


. 

Constants 



18 

0018 

MAXLINE 

EQU 

24 ; 

Max number of lines is 0. 

. 24 

19 

0019 

NUMLINES 

EQU 

25 ? 

Number of lines is 1..25 


20 

004F 

MAXCHAR 

EQU 

79 ? 

Max number of chars/line 

0. .79 

21 

0050 

NUMCHARS 

EQU 

80 ; 

Number of characters is 1 

. . 80 

23 

24 







25 



8051 

processor constants 



26 


7 





27 

0000 

BANKO 

EQU 

OOOOOOOOB ? 

Select register bank 0 


28 

0008 

BANK 1 

EQU 

00001000B 7 

Bank 1 


29 

0023 

ITMOD 

EQU 

0010001 IB ; 

Init value for -TMOD- 


30 

005A 

I SCON 

EQU 

0101101OB 7 

I nit value f or -SCON- 


31 

0003 

IPINIT 

EQU 

0000001 IB ; 

Init value for interrupt 

priori ties 

32 

0095 

IEINIT 

EQU 

10010101B 

In it value for interrupts 


33 

0082 

I EDM A 

EQU 

1000001OB ; 

Init value for interrupts 

during DMA 
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1 



.. 

Keyboard data 



3 



; 

Data 

from the keyboard 

other than ASCII data is in the format 


4 



; 

of 1 scXXXXXB where s « 

shift status, c = control status and 


5 



; 

the 

rest of the word defines the function. Exceptions to this 


6 

7 



] 

are 

the access function 

, power up function and ID number. 


3 

9 





OaaaaaaaB 

ASCII data to be transmitted 


10 

0040 


KB-SHFT 

EQU 

01000000B 

* Keyboard shift mash: 


11 

0020 


KB-CNTR 

EQU 

001OOOOOB 

• Ke y boar d c o nt r o1 mas k 


12 

13 

14 

0080 


KB-UP 

EQU 

1OOOOOOOB 

5 Up arrow key 


15 

0081 


KB-DOWN 

EQU 

1000000IB 

7 Down arrow key 


16 

0082 


KB-LEFT 

EQU 

1000001OB 

’ Left arrow key 


17 

0083 


KB-RIGHT 

EQU 

1000001 IB 

7 Right arrow key 


18 

0084 


KB-HOME 

EQU 

10000100B 

? Home key 


19 

0085 


KB-ERASE 

EQU 

1000010IB 

“ Erase key 


20 

0086 


KB-HELP 

EQU 

1000011OB 

? Help key 


21 

0087 


KB-SCRGLL 

EQU 

1000011 IB 

; Scroll key 


22 

0088 


KB-SETUP 

EQU 

10001000B 

? Setup key 


23 

0089 


KB-BREAK 

.EQU. 

1000100IB 

5 Break key 


24 

008A 


KB-CAPS 

EQU 

1000101OB 

" Caps lock key 


25 

008B 


KB-TAB 

EQU 

1000101 IB 

7 Tab key 


26 

008C 


KB-SPACE 

EQU 

10001100B 

" Space bar 


27 








28 

008F 


KB-POWER 

EQU 

1000111 IB 

7 Keyboard Just powered up 


29 








30 

0090 


KB-0 

EQU 

1001OOOOB 

; Numeric keypad 0 key 


.31. 

0091 


KB— 1 

EQU 

1001000IB 

5 Numeric keypad 1 key . 


32 

0092 


KB-2 

EQU 

1001001OB 

” Numeric keypad 2 key 


33 

0093 


KB-3 

EQU 

1001001 IB 

7 Numeric keypad 3 key 


34 

0094 


KB-4 

EQU 

iooioiooB 

? Numeric keypad 4 key 


35 

0095 


KB 5 

EQU 

1001010IB 

7 Numeric keypad 5 key 


36 

0096 


KB-6 

EQU 

10010110B 

5 Numeric keypad 6 key 


37 

0097 


KB-7 

EQU 

1001011 IB 

7 Numeric keypad 7 key 


38 

0098 


KB-8 

EQU 

10011000B 

7 Numeric keypad 8 key 


39 

0099 


KB _9 

EQU 

10011001B 

.. .N.umer.i..ke.YP.4d .9. .key.. 


40 

009A 


KB-DEC 

EQU 

1001101OB 

* Numeric keypad decimal point key 


41 

0Q9B 


KB-ENT 

EQU 

1001101 IB 

.. j . .N.umer i.c. .keypad.. . k.ey... 


42 

009C 


KB-DASH 

EQU 

100111OOB 

7 Numeric keypad dash key 


43 

009D 


KB-COMMA 

EQU’ 

10011101B 

? N.umeric keypad comma key 
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1 


. 

.Access 

. code. and. keys, .that. foil ow. ... . 

3 



The access code from the keyboard is. very.. much. .1 ike an. escape .. 

4 


; 

charac 

ter. It indicates that the second character from the 

5 

/- 


" 

.key.bo.ar.d. .mil 3..b.e. .th.e. ,da.ta. .with . .the.. f.o.1.1 o.wi.ns.. d.ef.in.i t.io.ns... 

7 

009F 

KB_ACC 

EQU 

10011111B " Access code 

8 

9 

0080 

KB FI 

EQU 

10000000B “ Function key #1 

10 

0081 

KB-F2 

EQU 

1000000IB ! Function key #2 

11 

0082 

KB-F3 

EQU 

1000001OB ? Function key #3 

12 

0083 

KB-F4 

EQU 

10000011B 5 Function k e y #4 

13 

0084 

KB-F5 

EQU 

10000100B 5 Function key #5 

14 

0085 

KB-F6 

EQU 

1000010IB 5 Function key #6 

15 

0086 

KB-F7 

EQU 

10000110B 5 Function key #7 

16 

0087 

KB-F8 

EQU 

1000011 IB ? Function key #8 

17 

0088 

KB-F9 

EQU 

10001000B 5 Function key #9 

is 

19 

0098 

KB-ID 

EQU 

lOOUOOOB ? ID number lOOllxxxB 

20 

21 


22 

23 


24 

25 



Ke y boa r d c omma n d s 



26 


; 

These 

are commands that are sent from the terminal to the 

27 


7 

keyboard. They tell 

the 

ke yb oar d t o. enter and ex it different 

28 


; 

modes 

and to perform 

different functions. 

29 


? 





30 

0080 

KBC-ID 

EQU 

1OOOOOOOB 

? 

Send keyboard ID number 

31 

0081 

KBC-BELL 

EQU 

1000000IB 

; 

Rina be 11 

32 

0082 

KBC-EC 

EQU 

1000001OB 

? 

Enable key click 

33 

0083 

KBC-DC 

EQU 

1000001 IB 


Disable key click 

34 

0084 

KBC-EL 

EQU 

10000100B 

; 

Enter caps locked 

35 

0085 

KBC-XL 

EQU 

10000101B 

; 

Exit caps locked 

36 

0086 

KBC-ER 

EQU 

1000011OB 

? 

Enable auto repeat mode 

37 

0087 

KBC-DR 

EQU 

1000011IB 


Disable auto repeat mode 

38 

0088 

KBC-DK 

EQU 

10001000B 

; 

Disable keyboard 

39 

0089 

KBC-EK 

EQU 

1000100IB 

; 

Enable keyboard 

40 

008A 

KBC-OFFLN 

EQU 

1000101OB 

; 

Turn on offline LED 

41 

008B 

KBC-ONLN 

EQU 

1000101 IB 

7 

Turn off offline LED 
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2-29 

COMPUTER TERMINAL 

FIRMWARE VERSION 1.03 






1 


.. 

CRT 

video controler 

equivalences 


2 

3 

0000 

CRESET 

EQU 

OOOOOOOOB 

5 

Reset 8275 


4 

004F 

SCRN1 

EQU 

0100111IB 

7 

Normal rows* 80 chars/row 


5 

0098 

SCRN2A 

EQU 

10011000B 

? 

3 VRTC* 25 rows/screen 


6 

OODC 

SCRN2B 

EQU 

110111OOB 

• 

7 

4 VRTC* 29 rows/screen 


7 

0099 

SCRN3 

EQU 

10011001 B 

7 

line 10 underline* 10 scan lines 


8 

004E 

SCRN4A 

EQU 

01001 HOB 

7 

attributes* cursor* 30 HRTC 


9 

004F 

SCRN4B 

EQU 

0100111IB 

7 

attributes* cursor* 32 HRTC 


10 

11 

0020 

CSTRT 

EQU 

001OOOOOB 

7 

Start display, 0 delay, 1/burst 


12 

0040 

CSTOP 

.EQU ' 

01OOOOOOB 

m 

7 

Stop display 


13 

0080 

CCRSR 

EQU 

1OOOOOOOB 

7 

Load cursor position 


14 

OOAO 

Cl NT 

EQU 

101OOOOOB 

m 

Enable end of frame interrupt 


15 

OOEO 

CSET 

EQU 

111OOOOOB 

; 

Preset counters 
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1 


;; 

External 

memory address 

map 


2 

3 

2000 

DDATREG 

EQU 

8#1024 


. 

8275 data register 


4 

5 

2001 

2001 

DCMDREG 

DSTAREG 

EQU 

EQU 

8*1024 + 
8*1024 + 

1 

1 . 


8275 command register- 
8275 status register 


6 

.7. 

3000 . 

. .MLATCH ... 

EQU 

12*1024 


„ 

Memory latch 


8 

9 

4000 . 

ATRIBMEM 

EQU 

16*1024 



Attribute memory . . 


10 

11 

5000 

CHARMEM 

EQU 

20*1024 


. 

Character memory 


12 

13 

5780 

L25MEM 

EQU 

20*1024 + 

1920 

7 

Line 25 me m or v 


14 

15 

5 7 DO 

0009 

IBUF 

IL.0 

EQU 

EQU 

20*1024 + 
9 

2000 

. 

Input buffer 32 bytes 

Input queue lo water mark 


16 

17 

0015 

0020 

INI 

ILEN 

EQU 

EQU 

21 

32 


5 

Input queue hi water mark 

Input queue length 


18 

19 

57F0 

OBUF 

EQU 

20*1024 + 

2032 

. 

Output buffer 8 bytes 


20 

21 

57F7 

OLEN 

EQU 

OBUF + 7 



Output queue length 


js£j£ 

.23 . 

57F8 

PMBUF 

EQU 

20*1024 + 

2040 


ANSI parameter buffer 8 bytes 


24 

25 

6000 

DMAMEM 

EQU 

24*1024 


7 

DMA memory 


26 

27 

7000 

EAROM 

EQU 

28*1024 


? 

EAROM memory 


28 

29 


? 

External 

memory constants 



30 

31 

OOEF 

AtRANL 

EQU 

1110111 IB 


7 

Mask -CHARMEM- to -ATRIBMEM- 


32 

33 

OOCF 

0010 

DMAANL 

CHRORL 

. EQU * 

EQU 

1100111 IB 
0001OOOOB 


7 

7 

Mask -DMAMEM- to -ATRIBMEM- 
Mask -ATRIBMEM- to -CHARMEM- 


34.0020.DMAGRL.EQU ..bblbbbbOB.?’ Mask ' -ATRIBMEM- to ‘“DMAMEM- 1 
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1 ;; 

Internal RAM 

memory setup 


3 


4 


? 

Resister bank #0 

used 

i n backsr ound .j obs 


6 

7 

REG 

PTR1 

EQU 

RO 


? Work pointer #1 

(RO) 

8 

0000 

PTR1A 

EQU 

OOH 


; Address of -PTR1- 


9 

REG 

PTR2 

EQU 

R1 


* Work pointer #2 

<R1) 

10 

0001 

PTR2A 

EQU 

01 H 


; Address of -PTR2-* 


11 

REG 

INDX1 

EQU 

R2 


? Index resister 1 

<R2> 

12 

0002 

INDX1A 

EQU 

02H 


; Address of -INDX1- 


13 

REG 

INDX2 

EQU 

R3 


? Index resister 2 

(R3) 

1.4 

0003 

INDX2A 

EQU 

03H 


? Address of -INDX2- 


15 

REG 

WORK 

EQU 

R4 


? Work resister 

(R4) 

16 

0004 

WORKA 

EQU 

04H 


? Address of -WORK- 


17 

REG 

TEMP 

EQU 

R5 


; Temporary hoi dins resister 

(R5) 

18 

0005 

TEMPA 

EQU 

OSH 


? Address of -TEMP- 


19 

REG 

WORK 1 

EQU 

R6 


? Work resister 1 

(R6) 

20 

0006 

WORK 1A 

EQU 

06H 


; Address of -W0RK1- 


21 

REG 

W0RK2 

EQU 

R7 


? Work resister 2 

(R7) 

22 

0007 

.W0RK2A. 

EQU 

" 07H. 


; Address o f -W0RK2- 


23 








24 








25 


; 

Resister bank #1 

used 

in DMA routine 


26 


; 






27 

REG 

DMPTR 

EQU 

RO 


• Pointer into line order 

(RO) 

28 

0008 

DMF'TRA 

EQU 

OSH 


? Address of —DMPTR— 


29 

REG 

DMLN 

EQU 

R1 


? Current DMA line number 

(R1) 

30 

0009 

D MLN A 

EQU 

09H 


? Address of -DMLN- 
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1 


. ? . 

General 

use variables 

from OAH to 1FH 

2 

o 

000A 

DMADRH 

EQU 

OAH 

. 

Next address of DMA high bvte 

4 

5 

OOOB 

DMADRL 

EQU 

OBH 


Next address of DMA low bvte 

6 

7 

OOOC 

00 OD 

ISTORE 

IFETCH 

EQU 

EQU 

OCH 

ODH 

* 

Input store pointer- 
input fetch pointer 

8 

9 

OOOE 

ICOUNT 

EQU 

OEH 

? 

Input number count 

10 

11 

OOOF 

0010 

OSTORE 

OFETCH 

EQU 

EQU 

OFH 

10H 

! 

Output store pointer 

Output fetch pointer 

12 

13 

0011 

XROS 

EQU 

11H 

? 

Actual X-position 

14 

15 

0012 

YPOS 

EQU 

12H 

? 

Actual Y-position 

16 

17 

0013 

0014 

LINADH 

LINADL 

EQU 

EQU 

13H 

14H 

. 

Address of next character to plot 

Address of next character to plot 

18 

19 

0015 

DSADRH 

EQU 

15H 

, 

Dispatch address high 

20 

21 

0016 

DSADRL 

EQU 

16H 

? 

Dispatch address 1ow 

22 

23 

0017 

0018 

TSCROLL 
BFIX 

EQU 

EQU 

17H 

18H 

! 

Top line of scrolling region 

Top line of the bottom fixed region 

24 

25 

0019 

PMADRH 

EQU 

19H 

. 

ANSI parameter address high 

26 

27 

001 A 

00 IB 

PMADRL 

PMNUM 

EQU 

EQU 

1AH 

1BH 

m 

7 

ANSI parameter address low 

ANSI number of parameters 

28 

29 

001C 

PMVALUE 

.. . EQU 

1 CH 

5 

ANSI current value of parameter 

30 

31 

6 b id 

00 IE 

KBIDNUM 

HSLINE 

EQU 

EQU 

1DH 

1EH 

• 

7 

Keyboard ID number 

Hold screen mode line count 

32 

00 IF 

GSET 

. EQU . 

1FH 

; 

Graphic set G1 and GO select 
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1 


; 

FI ass 

that define 

byte 

20H 




2! 

3 

0020 

XLATCH 

EQU 

20H 


. 

External latch bvte 




4 

0000 

EAROMSAVE 

BIT 

OOH 


. 

0 = save EAROM 

1 

=s 

normal 

6 

0001 

BLINKF 

BIT 

01H 


; 

0 - blink chars on 

1 

SB 

blanked 

7 

0002 

PORTF 

BIT 

02H 


; 

0 = main port 

1 

as 

auxi1iary 

' ' 

9 

0003 

. EAROMRCALL '' * 

BIT 

OSH 



0 = recal 1 

1 

~ 

normal 

10 











11 


; 

FI ass 

that define 

fc»Yte 

21H 




. il . 











13 

0021 

ATTRIBUTES 

EQU 

21H 


; 

Attribute bvte 




14 











15 

0008 

RVVA 

BIT 

OSH 



Reverse video attribute 



i'6 

OOO'P 

UNDLNA 

BIT 

09H 


a 

1 

Un de r-1i ne a11r i b u te 




17 

000 A 

BLINKA 

BIT 

OAH 


1 

Blink attribute 




18 

OOOB 

HALFIA 

BIT 

OBH 


a 

7 

Half intensitv attribute 


19 

OOOC 

ALTCHARA 

BIT 

OCH 


! 

Alternate character set 

attribute 

20 

ooob 

GRPH 

BIT 

OBH 


5 

0 = no graphics 

1 


graphics 

21 

000E 

PROTECT 

BIT 

OEH 



0 == no protected 

1 

= 

protected 

22 

OOOF 

ALTGRPH 

BIT 

OFH 


a 

7 

0 = no alt sraphics 

1 

= 

alt graphic set 

23 











24 











25 


■ 

7 

FI ass 

that define 

bvte 

22H 




26 


? 









27 

0010 

XOFFSENT 

BIT 

10H 


? 

0 « no terminal XOFF 

1 

as 

term XOFF 

28 

0011 

UXOFFSENT 

BIT 

11H 


a 

7 

0 ~ no user XOFF 

1 

as 

user XOFF 

29 

0012 

GSEL 

BIT 

12H 


7 

0 = GO selected 

1 

S= 

G1 selected 

30 

0013 

OKTRANS 

BIT 

13H 


a 

7 

0 = do not transmit 

1 

S= 

ok to trans 

31 

0014 

DX 

BIT 

14H 


5 

0 * no X-pos change 

1 

S= 

changes 

32 

0015 

L25EN 

BIT 

15H 


? 

0 ” line 25 disabled 

1 

= 

25 enabled 

33 

0016 

XOFFRCVED 

BIT 

16H 


a 

7 

0 = no XOFF received 

1 

= 

received 

34 











35 











36 


; 

FI ass 

that define 

bvte 

23H 




37 


; 









38 

0018 

PSDF 

BIT 

18H 


; 

Indicates if *PSD* has 

been done once 

39 

0019 

GNPF 

BIT 

19H 


; 

Indicates if #GNP# has 

been done once 

40 

001 A 

ENBLCUR 

BIT 

1 AH 


; 

0 = cursor disabled 

1 

SB 

enab1ed 

41 

00 IB 

ERM 

BIT 

1BH 


; 

0 = erase al1 data 

1 

SB 

only unprotected 

42 

001C 

SHIFTF 

BIT 

1CH 


? 

shift data from keyboard 


43 

00 ID 

CONTLF 

BIT 

. 1DH 



control data from keyboard 

44 

00 IE 

ACCESSF 

BIT 

1EH 


; 

0 ~ no access from kb 

1 

= 

in progress 

45 

00 IF 

KBDISF 

BIT 

1FH 


; 

0 = keyboard enabled 

1 


disabled 

46 











47 











48 


; 

FI ass 

that define 

bvte 

24H 




49 











50 

0020 

CLRFLG 

BIT 

20H 


7 

Used in screen DMA must 

allavs be 0! 

51 

0021 

. .. ICMODEF 

BIT 

21H 


a 

? 

0 = not insert char 

1 

SB 

IC mode on 

52 

0022 

HSSTOPF 

BIT 

22H 


5 

0 = dont hold screen 

1 

= 

stop screen 

53 

.00&3. 

PRNTF 

BIT 

23H 


a 

7 

0 = not printing 

1 

as 

printing 

54 

0024 

VSPF 

BIT 

24H 


7 

0 = suppress video 

1 

= 

normal 

55 

.0Q23. 

...G.atm. 

BIT 

25H 


a 

1 ' 

0 = trans al1 data 

1 

J= 

on 1 v unprotected 
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1 

o 


7 

.F.l.ass. 

that . def.i ne. .byte 

25H 





.a. 

.0.028. 

PRTYENA 

.BIT... 

.. 

. ?..Q « 

n.Q. .PRri.ty.. 

.1. 


.c.k. p*r.i.t.y. 

4 

0029 

PRTYSTK 

BIT 

29H 

? 0 = 

normal parity 

1 


stick 

5 

.0.Q2.A. 

PRTYEVN 

.BIT... 

...2AH. 

; 0 = 

odd parity 

1 


even parity 

6 

002B 

AUTOWRAP 

BIT 

2BH 

? 0 = 

no auto wrap 

1 

= 

wrap around 

7 

.0.020. 

AUTOCR 

BIT 

2CH 

? 0 = 

no. auto .CR. on..LF. 

1 


auto CR 

8 

002D 

AUTOLF 

BIT 

2DH 

; o = 

no auto LF on CR 

i 

« 

auto LF 

.9.. 

.0P.2E. 

ONLINE 

BIT 

2EH 

; o = 

off line 

1 

_= 

on 1ine 

10 

002F 

FULLDPLX 

BIT 

2FH 

; o = 

half duplex 

i 

= 

full duplex 

..u. 










12 










.13...:.. 



FI ass 

that define byte 

26H 





14 










.15. 

0030 

KPADSHTF 

BIT 

30H 

; o = 

keypad ordinary 

1 

~ 

shifted 

16 

0031 

KPADALTF 

BIT 

31H 

; o = 

keypad ordinary * 

1 

= 

alternate 

.17. 

.P.0.32. 

CRUL 

BIT 

32H 

; o = 

block cursor 

1 

= 

under!ine 

18 

0033 

CLKF 

BIT 

33H 

* o = 

no key click. 

1 

= 

c 1 i c k 

. 19 . 

0034 ... 

.REPF.. 

.BIT ... 

34H 

...?.. 0 ..=. 

no. auto repeat 

1 

— 

auto repeat 

20 

0035 

CAPLOCKF 

BIT 

35H 

; o = 

caps unlocked 

1 

= 

1ocked 

.21. 

.0036. 

HSMODEF 

BIT 

.... 3.6H. 

? o = 

not hold screen 

1 

= 

ho.l.d. .screen. 

22 

.23.. 

0037 

L250N 

BIT 

37H 

? o « 

status line off 

1 

= 

status on 

24 










.25 ... 


; 

FI ass 

that define bvte 

27H 





26 


• 

7 








..27.. 

. 0038 . 

CRNBK 

BIT 

38H 

! 0 «■ 

blinking cursor 

1 

== 

non blink 

28 

0039 

FREQ 

BIT 

39H 

? 0 a 

50 Hz 

i 

* = 

60 Hz 

.,29. 

... .0030. 

MONITOR 

BIT 

3AH 

? 0 = 

not monitor mode 

l 

- 

monitor 

30 

003B 

SCRNSAVE 

BIT 

3BH 

5 0 ~ 

no screen saver- 

i 


saver on 

.3.1. 

.00.30. 

PRTF2 

.BIT ... 

... 3CH. 

? 0 a 

main port 

...l. 

. r . 

.auxilary. 

32 

003D 

ACHR2 

BIT 

SDH 

? 0 = 

normal char set 

l 

= 

alternate 

33 

.P.Q3E. 

HNDSHK 

BIT 

3EH 

.. 

software 

..l. 

= 

hardware 

34 










..35. 










36 


7 

FI ass 

that define bvte 

28H 





37 


5 








38 

0028 

MODE 

EQU 

28H 

* Mode terminal is in 




39 










40 

0040 

ANSI 

BIT 

4 OH 

? 0 = 

other modes 

l 


ANSI mode 

41 

0041 

ZDS 

BIT 

41H 

: o = 

other modes 

i 


ZDS mode 

42 

0042 

ADM3 

BIT 

42H 

? o = 

other modes 

T 


ADM 3 mode 

43 

0043 

HAZ 

BIT 

43H 

5 0 = 

other modes 

i 

- 

Haz 1500 

44 










45 










46 


? 

Variable tab table 






47 


5 








48 

0029 

TABTAB 

EQU 

29H 

? Variable tab table 

10 bytes to 32H 
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1 


. 

General 

use variables 

from 33H to 46H 

•i 

3 

0033 

BAUDRATE 

EQU 

33H 

7 

Serial port baud rate 

4 

5 

0034 

NVRSUM 

. EQU 

34H 

m 

Non-vo1 ati1e RAM checksum 

6 

7 

0035 

0036 

XXPOS 

XYPOS 

EQU 

EQU 

35H 

36H 

l 

Saved X-position 

Saved Y-pos ition 

8 

9 

0037 

BLNKRATE 

EQU 

37H 

■ 

Blinking rate of screen 

10 

11 

0038 

BLNKCNT 

EQU 

38H 

7 

Running count for blink rate 

12 

13 

0039 

AUTGCNY 

EQU 

39H 

5 

Auto off timer count 

14 

15 

003A 

003B 

TCNt ' 

TSEC 

EQU 

EQU 

3 AH 

3BH 

] 

Running dock count 

Seconds counter 

• * • • i 

17 

003C 

003D 

.T'Mi'N. 

THOUR 

.EQU 

EQU 

3CH 

SDH 

m 

7 

Minute counter 

Hour counter 

18 

19 

003E 

BISPSEC 

EQU 

3EH 

- 

Last count of seconds displayed 

20 

21 

003F 

PFIELD 

EQU 

3FH 

? 

Protected fields bvte 

22 

23 

0040 

ERRORS 

EQU 

4 OH 

; 

Powerup diagnostic error flags 

24 

25 


. 

Screen 

line table 



26 

27 

0047 

LORDER 

EQU 

47H 

5 

Line order list 25 bytes to 5FH 

28 

29 

30 

31 


! 

? 

Stack area 



32 

33 

005F 

STACK 

EQU 

5FH 

7 

Stack pointer address 32 bytes to 7FH 

34 

35 


? 

8051 processor bit port defines 

36 

37 

0090 

KBOUT 

BIT 

P1.0 

? 

Keyboard output line 

38 

39 

009 i 

0092 

KBIN 

VSP 

BIT 

BIT 

PI. 1 

PI. 2 

■ 

7 

Keyboard input 1 irie 

0 = normal video 1 = suppressed 

40 

41 

0093 

0094 

SETLCK 

DTR 

BIT 

BIT 

PI. 3 

PI.4 

7 

0 = setup mode locked 1 = normal 

Data terminal ready 

42 

43 

0095 

RTS 

7 

BIT 

BIT 

PI. 5 

F*1.6 

7 

• 

7 

Ready to send 

Expansion socket 

44 

45 

0097 

CLKRUN 

BIT 

PI.7 

7 

Clock run for CRT controler 

46 

47 

00B4 

?TXD 

DMATYPE 

BIT 

BIT 

P3. 1 

P3.4 

7 

• 

7 

Predefined serial port transmit pin 

0 = clear memory 1 = DMA CRTC 

48 

00B5 

CTS 

BIT 

P3.5 

7 

Clear to send 
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. X ....5.5. 

..3.?.. 

4 ? 

.5.......5.. 


6 

7 


8 


7 

Initialization of internal RAM and any other devices that 

9 


; 

may 

be added. 

10 


; 



11 

1000 

R2_IN 

EQU 

1000H 

12 





13 





14 


; 

Same 

as R2-.IN but does not destroy current settings 

15 


7 

such 

as CAPS LOCK, ON/OFF LINE, TIME on clock, etc. 

16 


7 



17 

1003 

R2_IN2 

EQU 

1003H 

18 





19 





20 


; 

Start DMA hook. This is Jumped to at the beginning of each 

21 



DMA 

request from the CRTC. 

22 


; 



23 

1006 

R2-8TARTDMA 

EQU 

1006H 

24 





25 





26 


7 

Stop 

DMA hook. This is Jumped to at the beginning of each 

27 


7 

timer 0 interrupt. . 

28 


; 



29 

1009 

R2_STQPDMA 

EQU 

1009H 

30 





31 





32 


m 

Fil 1 

screen hook. This is Jumped to start the fill screen 

33 


7 

DMA 

feature. A check for protected fields is made. 

34 


7 



35 

100C 

R2-FILL 

EQU 

100CH 

36 





37 





38 


? 

IRQ 

hook. This is Jumped to at the beginning of each IRQ. 

39 


; 



40 

1 OOF 

R2..IRQ 

EQU 

100FH 

41 





42 





43 


; 

Serial hook. This is Jumped to at the beginning of each 

44 


; 

serial interrupt. 

45 


; 



46 

1012 

R2_SERIAL 

EQU 

1012 H 


mw. mz .vzQjxm . 

.Thes.e. .1 acat i.Qn.5. .are. er.ov.id.ed. .t.o.. f.aci .11 late, .future, .modi f.ic.at.i.o.rs. 
without a change to the masked processor. Each location is 
acces.se.d. .wi.th. .a. .-CALL.-:. and. control. i.s. .gai n.ed. .back. wi.th. .a. .rRE.Tr.-. 
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1 


* 

» 

Transmit hook. This performs the transmit character 

3 


« 

7 

5 

function of the terminal for the serial port. 

4 

cr f 

ibis 

R2_XMT 

EQU 1015H 

6 

7 


. 

Send an XON to the host. 

8 

9 

1018 

R2_X0N 

EQU 1018H 

10 

11 

12 

13 



Initialize the cursor format. 

14 

15 

101B 

R2_ICUR 

EQU 101BH 

16 

17 


. 

Initialize the keyboard 

IS 

19 

101 E 

R2_IKB 

EQU 101EH 

20 

21 . 

22 

.. 2;?., 

24 

.25. 

26 

.27. 

1021 

R2-SETUP 

SETUP mode vector 

EQU 1021H 

Background loop hook. This is called once every time through 

28 

29 


? 

? 

the main background loop. 

30 

. m., 

1024 

R2-BACK 

EQU 1024H 

32 

.3.3. 


. 

Keyboard input hook. This is called once before a character 

34 


5 

> 

is received from the keyboard. 

36 

. .37.. 

33 

.3*9. 

1027 

R2_KY1 

EQU 1027H 

Keyboard output hook. This is called once at the beginning 

40 

.. 43 -.. 


? 

of each transfer to the keyboard. 

42 

..43. . 

102A 

R2_KY2 

EQU 102AH 

44 

. 45. . 


. 

Escape parsing hook. This is called after an -ESC- is 

46 

47 


. 

received . 

48 

102D 

R2-ESC 

EQU 102DH 
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1 


? 

Transmit character-. This performs the function of 

2 

•-j 


7 

transmittins the character at the current position. 

4 

1030 

R2_TC 

EQU 1030H 

6 

7 


. 

Transmit line. This performs the function of transmitting 

8 

9 


. 

the line at the current position. 

10 

1033 

R2_tL 

EQU 1033H 

11 




12 




13 


; 

Transmit page. This performs the function of transmitting 

14 


; 

the page to the port that is not selected. 

15 


; 


16 

1036 

R2._TP 

EQU 1036H 

17 




18 




19 


; 

Transmit 25th line. This performs the function of transmitting 

20 


; 

the 25th line to the port that is not selected. 

21 


; 


22 

1039 

R2-T25L 

EQU 1039H 

.23.. 




24 




25 


; 

Print page. This performs the function of transmitting the 

26 


; 

page to the opposite port in a form proper for printing (uses 

27 


; 

CR* LF at the end of each line). 

28 


; 


29 

103C 

R2-PRNT 

EQU 103CH 

30 




31 




32 


7 

Display clock. This updates the time on the 25th line. 

33 


5 


34 

103F 

R2„DCLK 

EQU 103FH 

35 




36 




37 


; 

Display 25th status line. This displays the system status 

38 


; 

on the 25th line if the option is enabled and the user does 

89 


? 

not have the 25th line enabled. 

40 


; 


41 

1042 

R2-DISP 

EQU 1042H 
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1 

3 




! ? 

INTERRUPT VECTORS 


4 








5 








6 




; 

RESET 

ve ct or 


7 




; 




8 

0000 




ORG 

OOOOH 


9 0000 

80 

2E 



SUMP 

START 

? Start of program 

10 








11 








12 




; 

External interrupt request 0 


13 




? 




14 

0003 




ORG 

0003H 


15 0003 

30 

AF 

02 


■JNB 

EA, 11 

; Double check 

i6 0006 

80 

22 



SUMP 

IEXTIO 

? Start DMA transfer 

17 0008 

D2 

89 


11 : 

SETS 

TCON.1 


18 OOOA 

32 




RET I 



19 








20 








21 




; 

T i me r 

0 interrupt vector 


.22. 




; 




23 

OOOB 




ORG 

OOOBH 


24 OOOB 

30 

AF 

02 


JNB 

EA, 12 

! Double check 

25 OOOE 

80 

ID 



SJMP 

ITMRO 

? stop DMA transfer 

26 0010 

D2 

8 D 


12 : 

SETB 

TCON.5 


27 0012 

32 




RETI 



28 








29 








30 




; 

External interrupt request 1 


31 




; 




32 

0013 




ORG 

0013H 


33 0013 

30 

AF 

03 


JNB 

EA, 13 

? Double check 

34 0016 

02 

100F 



LJMP 

R2„IRQ 

? Interrupt request 

35 0019 

D2 

8 B 


13: 

SETB 

TCON.3 


36 00IB 

32 




RETI 



37 








38 








39 




; 

Serial 

port interrupt vector 


40 




; 




41 

0023 




ORG 

0023H 


42 0023 

30 

AF 

03 


JNB 

EA, 15 

, Double check 

43 0026 

02 

1012 



LJMP 

R2_SERIAL 

? Serial port 

44 0029 

32 



15: 

RETI. 



45 








46 








47 




; 

Jumps 

to other locations 


48 




? 




49 002A 

02 

1006 


IEXT10: 

LJMP 

R2__ST ARTDMA 

? Start DMA jump 

50 002D 

02 

1009 


ITMRO: 

LJMP 

R2_ST0PDMA 

5 Stop DMA Jump 
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. 1 





• . 

Initialize system 


2 

3 

4 

. 




5 

• 

.Set.s.ta 

,Ck • P.Q i.nter..a.nd.. ca 1.1.. rout i.ne . to. .set. .g.p . every.t hi ns. 

.5. 


0030 




..QRG. 

. 3PH. 

... ; Somewhat arbitrary 

6 

7 

0030 

75 

.8.1. 

... .5F. 

.START-. 

.JIP.V. 

SP, #STACK 

_?..Initial i.?e .s.ta.cK.p.Qinter. 

8 

9 

0033 

12 

1000 



LCALL 

R2-IN 

? Initialize everything else 

10 

11 

12 









13 





?; 

MAIN - 

main control loop 


14 





; 




15 





; 

*MAIN* 

is in charge of giving 

control to the proper routine 

16 





? 

whenever there is a character 

present in one of the FIFOs. 

17 









18 









19 

0036 

12 

1024 


MAIN: 

LCALL 

R2_BACK 

? Background hook 

20 









21 

.P.Q39... 

20 

.22. 

... 08. 


JB 

.HSSTOPF, MN1 

? IF not hold screen THEN 

22 

003C 

31 

F 6 



ACALL 

FCIF 

5 fetch char from input FIFO 

.23 

003E 

40 

02 



JC .. . 

.. M N1. 

_?IF character THEN 

24 

0040 

11 

79 



ACALL 

IFCP 

; processes character 

25 









26 

0042 

30 

2E 

20 

MN1: 

JNB 

ONLINE, MN2 

? IF online AND 

27 

0045 

30 

13 

ID 


■JNB 

OKTRANS, MN2 

? IF output port free THEN 

28 

0048 

20 

02 

03 


JB 

PORTF, MN1A 

* IF auxiliary port OR 

29 

004B 

30 

3E 

03 


JNB 

HNDSHK, MN 1 B 

? IF hardware handshake THEN 

30 

004E 

20 

B5 

14 

MN1A: 

JB 

CTS> MN2 

? IF not CTS THEN skip 

31 

.0051... 

20 

16 

11 

MN1B: 

JB 

XOFFRCVED, MN2 

5 IF not -XQFF- received THEN 

32 

0054 

51 

4C 



ACALL 

FCOF 

? fetch char from output FIFO 

33 

0056 

40 

OD 



JC 

MN2 

? IF character THEN 

34 

0058 

B4 

13 

02 


CJNE 

A, #X0FF, MN1C 

IF char = xoff THEN 

35 

G05B 

D 2 

11 



SETB 

UXOFFSENT 

? flag user xoff sent 

36 

005D 

B4 

11 

02 

MN1C: 

CJNE 

A, #XON, MN1D 

" IF char - xon THEN 

37 

0060 

C 2 

11 



CLR 

UXOFFSENT 

i clear user xoff sent 

38 

39 

0062 

12 

1015 


MN1D: 

LCALL 

R2-XMT 

“ transmit character 

40 

0065 

20 

IF 

06 

MN2: 

JB 

KBDISF, MN3 

? IF keyboard enabled THEN 

41 

0068 

51 

B6 



ACALL 

FCKB 

? fetch char f rom ke vbo a r d 

42 

006A 

40 

02 



JC 

MN3 

“ IF keyboard data THEN 

43 

006C 

51 

EE 



ACALL 

KBCP 

? p ro cess k eyboard data 

44 









45 

006E 

30 

37 

C5 

MN3: 

JNB 

L250N, MAIN 

? IF 25th status enabled AND 

46 

0071 

20. 

15 

C2 


JB 

L25ENV MAIN. 

? IF 25th line disabled THEN 

47 

0074 

12 

103F 



LCALL 

R2—EJCLK 

? display clock every second 

48 









49 

0077 

80 

BD 



SJMP 

MAIN 

? Go forever 




































Z29ROM5 MICROBENCH 8051 CROSS ASSEMBLER (VI>-213 24-FEB-S3 15:30:06 PAGE 17 

*** Z-29.COMPUTER. TERMINAL FIRMWARE VERSION 1.03 


1 

. . 

IFCP - input FIFO character processor 

3 

? 

? 

■H-IFCP* interprets characters which have been received (or 

4 

7 

? 

struck on the keyboard if off-line or keyed as a local 
function). If the character is part of an escape sequence 

6 

7 


then control is given directly to that routine by means of 
the -dispatch address-. If it is a control character then it 

8 

9 


is looked up in •a-CTLTAB*. If found the program Jumps to the 

appropriate routine? otherwise the character is discarded. If 

10 

11 


it is a displavable character it is placed on the screen 
after checking for graphics mode? attributes? etc. 


12 

13 


14 





; 

ENTRY 

(A) = character from input FIFO 

15 





; 



16 





; 

EXIT 

none 

17 





; 



18 





; 

USES 

al 1 

19 








20 








21 

0079 

B4 

18 

06 

IFCP: 

C.JNE 

A? #CAN? IFPA ? IF canceled AND 

22 

007C 

20 

43 

03 


JB 

HAZ? IFPA ; IF not Haz mode THEN 

23 

007F 

12 

082F 



LCALL 

SETNORM ? Restore dispatch address 

24 








25 

0082 

CO 

16 


IFPA: 

PUSH 

DSADRL ? Jump to the 

26 

0084 

CO 

15 



PUSH 

DSADRH ? -dispatch address- 

27 

0086 

22 




RET 


28 








29 

0087 

B4 

OD 

12 

NORM: 

CJNE 

A? #CR? IFP1 ?“ IF c^rria.Be return THEN 

30 

008A 

30 

36 

OF 


•JNB 

HSMODEF? IFP1 5 IF hold screen mode THEN 

31 

008D 

E5 

12 



MOV 

A? YF'OS 

32 

008F 

04 




INC 

A "set y-pos to check 

33 

0090 

B5 

18 

00 


CJNE 

A? BFIX? NRMO ? with bottom fixed region 

34 

0093 

40 

05 


NRMO: 

JC 

NRM1 ? IF ypos >= bottom THEN 

35 

0095 

D5 

IE 

02 


DJNZ 

HSLINE? NRM1 ? decrement line 

36 

0098 

D2 

22 



SETS 

HSSTOPF ; IF zero THEN stop disp 

37 

009A 

74 

OD 


NRM1: 

MOV 

A? #CR ? restore carriage return 

38 

39 





7 

Check 

for monitor mode and control characters 

40 





7 



41 

009C 

30 

3 A 

OD 

IFP1: 

JNB 

MONITOR, IFF*IB ? IF monitor THEN 

42 

009F 

C2 

08 



CLR 

RVVA ? start with normal display 

43 

00 A1 

B4 

20 

00 


CJNE 

A, #•' IFP1A 

44 

00 A 4 

50 

5E 


IFP1A: 

JNC 

IFP6 ?" IF control character THEN 

45 

00A6 

D2 

08 



SETB 

RVVA " make it reverse video 

46 

00A8 

44 

40 



ORL 

A? #010000006 ? convert to ordinary char 

47 

OOAA 

80 

58 



SJMP 

IFF*6 ? skip ahead 

48 








49 

00 AC 

B4 

20 

00 

IFP1B: 

CJNE 

A? #•' •'? IFF* 1C " Normal place to Jump to 

50 

00 AF 

40 

03 


IFP1C: 

JC 

IFF'2 ? IF control character OR 

51 

Pr?-. 

00 B1 

B4 

7F 

21 


CJNE 

A? #RUBOIJT, IFF*3 ? IF :\r:ub.e.ut"' THEN . .. 

53 

54 

55 





. 

Charac 

:ter is a control .t-hana.dt.er. . 

00B4 

* 75 

.... FO. 

08 

... JFp.2:. 

MOV 

... .EC. .#.CTAB.1L.. Qe.t.. .t.ah.le.. i.nf.o. 

56 

00 B 7 

90 

0119 



MOV 

DPTR, #CT AB1 

57 

OOBA 

20 

40 

12 


JB 

ANSI ? IFP2A .? IF no t. .ANSI.. m.O fl«. OR. 
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1 

OOBD 

20 

41 

OF 


JB 

ZDS, IFP2A 

; 

IF not ZDS mode THEN 

2 

OOCO 

75 

FO 

OE 


MOV 

B, #CTAB2L 

; 

get other table info 

.3 

00C3 

90 

0107 



MOV 

DPTR, #CT AB2 



4 

00C6 

20 

42 

06 


JB 

ADM3, IFP2A 

; 

IF not ADM 3 mode THEN 

5 

00C9 

...75..... 

.FO. 

06 


MOV 

B, #CT AB3L 

; 

get other table info 

6 

OOCC 

90 

0128 



MOV 

DPTR, #CTAB3 



7 

. P.QCH ... 

...3.1. 

.... 3$ . 


IFP2A: 

ACALL 

STAB 

. 

Sear; ch. the table 

. ?. 





7 

Control character Round in 

tab 1e, 

go to associated address. 

10 





; 

Subroutine return will cause return to main idle loop 

. U. 





; 





12 

OOD1 

40 

33 



JC 

IFPRET 

; 

IF found THEN 

.13 

0QP.3 . 

...E.4. 




CLR 

. A 



14 

00D4 

73 




JMF' 

OA+DPTR 

? 

jump to address in <DPTR) 

.1.5 










16 





; 

Character is a displarable 

character 

.17. 





; 





18 

OOD 5 

30 

43 

06 

IFP3 : 

JNB 

HAZ, IFP3A 

; 

IF Hazeitine mode AND 

. 19 

00D8 

B4 

.... 7E.. 

03 


CJNE 

A, #•--•••, IFP3A 

; 

IF char = THEN 

20 

OODB 

02 

067B 



LJMF* 

ESCCODE 

? 

do escape stuff 

.21. 

CODE. .. 

... .3p_ 

. QP. . 

_13._ 

IFP3A: 

JNB 

.... GRPH 7 .. I FF'5 . 


IF in graphics mode THEN 


00 E1 

B4 

5E 

06 


CJNE 

A, #5EH, IFP4 



.23: 

. P.0E4. .. 

... 2.0._ 

.. .PF.. 

OD 


.JB. 

... .ALTfiRPH.,.. .I.FP.5 . 

; 

IF. .a.l.tj&.CAa.t.e. THEN d.gn t map 

24 

00E7 

74 

7F 



MOV 

A, #7FH 

7 

IF 5EH THEN map to 7FH 

.25. 

.0.0E.9... 

...P.3..... 




. SJ-TB.. 

... .C . 



26 

OOEA 

40 

08 


IFP4: 

JC 

IFP5 

? 

IF in graphics range THEN 

27 

.P.QEC... 

...54. 

IF 



ANL 

A, #000111118 

; 

mask to graphic character 

28 

OOEE 

30 

OF 

03 


JNB 

ALTGRPH, I FF'5 

? 

IF alt graphic set THEN 

29 

OOF 1 

.. .P.3. 




SETB 

C 

• 

7 

set carry and 

30 

00F2 

80 

02 



SJMP 

IFP5A 

7 

place into alt mode 

.31 










32 










33 





7 

Check 

for insert character 

mode 


34 





• 

7 





35 

00F4 

A2 

OC 


IFP5: 

MOV 

C, ALTCHARA 

7 

Get alt char mode 

36 

00F6 

92 

E7 


IFP5A: 

MOV 

ACC.7, C 

7 

Place into data bvte 

37 










38 

OOFS 

30 

21 

09 


JNB 

ICMODEF, IFP6 

; 

IF insert character mode THEN 

39 

OOFB 

CO 

EO 



PUSH 

ACC 

; 

save character 

40 

OOF El 

31 

A9 



ACALL 

SF‘F 

? 

skip protected fields 

41 

OOFF 

...1.2. 

ODC1 



CALL 

PIC 

? 

insert blank character 

42 

0102 

DO 

EO 



POP 

ACC 

; 

restore character 

43 










44 

0104 

31 

57 


IFP6: 

ACALL 

PUTCHR 

5 

Put character onto screen 

45 

0106 

22 



IFPRET: 

RET 
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*** Z-29 COMPUTER TERMINAL 

FIRMWARE VERSION 1.03 




1 



? ? 

CTAB1/2/3 - centre.! 

character tables 

* 2 
3 



? 

*CTAB1* 

contains all 

control codes for the ANSI and ZDS 

4 



? 

emulation modes. 


5 



« 

* 




6 



? 

*CTAB2* 

contains all 

control codes for the ADM 3 emulation 

7 



; 

mode. 



. 3 

9 



5 

*CTAB3* 

contains all 

control codes for the Hazel tine 1500 

10 



; 

emulation mode. 


11 



; 




12 



; 

Table entries are: 

The control character followed bv the 

13 



* 

address 

of the routine which performs the requested function. 

. 14* 







15 







16 


6167 

CTAB2 

EQU 

* 


17 







18 

0107 

OB 


DB 

OBH 

? Vertical tab 

19 

0108 

0C8D 


DW 

CUP 

“ Cursor up 

20 







21 

010A 

OC 


DB 

OCH 

’ Form feed 

.22 

01 OB 

0C64 


DW 

CRT 

? Cursor right 

23 







24 

oiob 

OE 


DB 

OEH 

? Shift out 

25 

010E 

0FB3 


DW 

EKI 

? Enable keyboard input 

26 







27 

0110 

OF 


DB 

OFH 

? Shift in 

28 

0111 

0FB9 


DW 

DKI 

‘ Disable keyboard input 

29 







36 

0113 

1A 


DB 

1 AH 

? Substitute 

31 

0114 

OBAC 


DW 

CLRS 

; Clear screen 

32 

33 

0116 

IE 


DB 

1EH 

" Record separator 

34 

35 

0117 

0C36 


DW 

SCH 

5 Set cursor home 

36 

37 


0il9 

CTAB1 

EQU 

$ 


38 

0119 

IB 


DB 

ESC 

? Escape 

39 

Oil A 

067B 


DW 

ESCCODE 

; Escape code processor 

40 







41 

one 

08 


DB 

BS 

? Backspace 

42 

01 ID 

0C3D 


DW 

PBS 

; Perform backspace 

43 







44 

01 IF 

09 


DB 

HT 

? Horizontal tabulation 

45 

0120 

05C1 


DW 

TAB 

; Tab to next column 

46 







47 

0122 

OE 


DB 

OEH 

5 Shift out 

48 

0123 

0 F8l 


DW 

G1PICK 

" Pick G1 character set 

49 







50 

0125 

OF 


DB 

OFH 

? Shift in 

51 

0126 

0F7B 


DW 

GOPICK 

* Pick GO character set 

52 

53 


0128 

CTAB3 

EQU 

$ 


54 







55 

0128 

OA 


DB 

LF 

“ Line feed 

56 

0129 

0555 


DW 

PLFCR 

; Perform LF and/or CR 

57 
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1 

012B 

OD 


DB. 

CR 


. C.a r.r; i.a g.e. r e.t y.r; o. 

2 

3 

012C 

054F 


DW 

PCR’LF 


Perform CR and/or LF 

4 

012'E 

07 


DB 

BELL 

? 

Bel 1 

5 

012F . 

066B 


... P.W. 

...mm . 

; 

Ri.ng.. t.he. .be ] .1. 

6 

7 


0008 

CTAB1L 

EQU 

($-CTABl)/3 


Table length 

8 

9 


000E 

CTAB2L 

EQU 

< $—CTAB2)/3 

* 

Table length 

10 

0131 

08 


DB 

BS 


Back space 

11 

0132 

0C51 


DW 

HCLFT 


Cursor left 

12 

13 

0134 

10 


DB 

10H 

. 

Data link escape 

14 

15 

0135 

0C79 


DW 

HCRT 


Cursor right 

16 

0137 

09 


DB 

HT 

; 

Horizontal tabulation 

17 , 

0138 

0636 


DW 

HTAB 

; 

Special function 

18 








19 


0006 

CTAB3L 

EQU 

($-CTAB3)/3 

; 

Table length 
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*** Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 


1 





; ; 

STAB - 

search table 


2 

3 





• 

7 

7 

*STAB* 

searches tables of specified 

length for a match 

4 

Cj 





! 

7 

with the first character in an entry 

• 

6 

7 





7 

m 

7 

ENTRY 

(A) = character to match 


8 





a 

7 


(B) = table length in number 

of entries 

9 





• 

7 


(DPTR) = table address 


10 





7 




11 





a 

7 

EXIT 

(A) ~ original character 


12 





7 


(B) sa number of entries left 

to search + 1 

13 





m 

7 


(DPTR) ss first address after 

character match 

14 





a 

7 


'C' - set if no match, clear 

otherwise 

15 





7 




16 





7 

USES 

A, B, DPTR, WORK 


17 









18 









19 

013 A 

FC 



STAB: 

MOV 

WORK, A 7 Save character to match 

20 









21 

013B 

E4 



ST 1: 

CLR 

A 7 REPEAT 

22 

013C 

93 




MOVC 

A, ©A+DPTR 

get character from table 

23 

013D 

A3 




INC 

DPTR 7 

bump to address high bvte 

24 

013E 

" B5 ‘ ‘ 

04 

OE 


CJNE 

A, WORKA, ST2 7 

compare char with work 

25 

0141 

E4 




CLR 

A 7 

IF character = work THEN 

26 

0142 

93 




MOVC 

A, ©A+DPTR 7 

get address high bvte 

27 

0143 

CO 

EO 



PUSH 

ACC 7 

save on stack 

28 

0145*' 

A3 ‘ 




INC 

DPTR 7 

bump to address low bvte 

29 

0146 

E4 




CLR 

A 


30 

0147 ” 

93 




MOVC 

A, ©A+DPTR 7 

get address low bvte 

31 

0148 

F5 

82 



MOV 

DPL, A 7 

save address low bvte 

32 

014 A 

DO 

83 



POP 

DPH 7 

pop address high bvte 

33 

014C 

EC 




MOV 

A, WORK 7 

restore original character 

34 

014D 

‘' C3. 




CLR 

C 7 

clear "C" for ok 

35 

014E 

22 




RET 

; 

return 

36 









37 

014F 

A3 



ST2: 

INC 

DPTR 7 

bump to address low bvte 

38 

0150 

A3 




INC 

DPTR 

bump to next entrv if anv 

39 

0151 

D5 

FO 

E7 


DJNZ 

B, ST1 7 UNTIL ttentries = 0 

40 









41 

0154 

EC 




MOV 

A, WORK 7 Restore original character 

42 

6 i 55 

D3 * 




SETS 

C 7 Flag "C •" for no match 

43 

0156 

22 




RET 
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1 

? 7 

PUTCHR - 

put character onto screen 




■*PUTCHR* 

puts the character onto the screen and 

checks for 

4 

5 


wrap around at the end of a line for auto CR or 

LF. 

6 

7 

. 

ENTRY 

(A> = character 


8 

9 

. 

EXIT 

none 


10 

11 

. 

USES 

A, B, DPTR, TEMP 7 PTR1 



12 ' 

13 


14 

15 

0157 

D 2 

14 


PUTCHR: 

SETB 

DX 


FI as that cursor moved 

16 

17 

0159 

CO 

EO 



PUSH 

ACC 

? 

Save character 

18 

015B 

31 

A 9 



ACALL 

SPF 

7 

Skip any protected fields 

19 










20 

015D 

85 

14 

82 


MOV 

DPL, LINADL 

? 

Get line address 

21 

0160 

85 

13 

83 


MOV 

DPH 7 LINADH 



22 

0163 

53 

83 

EF 


ANL 

DPH 7 #ATRANL 

? 

Mask to attribute memory 

23 

0166 

E5 

21 



MOV 

A, ATTRIBUTES 



24 

0168 

FO 




MOVX 

©DPTR, A 

; 

0 u t p u t c u r r e n t a 11 r i b u t e s 

25 

0169 

43 

83 

10 


ORL 

DPH, #CHRORL 

; 

Mask to character memory 

26 

016C 

DO 

EO 



POP 

ACC 

7 

Restore character 

27 










28 

016E 

FO 




MOVX 

©DPTR, A 

? 

Store into screen memory 

29 










30 

016F 

E5 

11 



MOV 

A, XPOS 



31 

0171 

B4 

4F 

09 


CJNE 

A, ttMAXCHAR, PUl 

; 

IF cursor at end of line AND 

32 

0174 

30 

2B 

OF 


•JNB 

AUTOWRAP, PU2 

; 

IF auto wrap on THEN 

33 

0177 

B1 

5C 



ACALL 

PCR 

; 

perform carriage return 

' 34 

0179 - '' 

"‘61 . 

.61. 



. ACALL 

F'LF 

5 

perform line feed 

35 

017B 

80 

09 



SUMP 

PU2 

; 

exit out 

36 










37 

017D 

05 

11 


PUl: 

INC 

XPOS 

; 

Bump -XPOS- 

38 

017F 

A3 




INC 

DPTR 


Bump 1ocation in memory 

39 

0180 

85 

82 

14 


MOV 

LINADL, DPL 

; 

Save new line address 

' 40 

Oi'83*'' 

. 

83 

13 


MOV 

LINADH, DPH 



41 










42 

0186 

21 

A 9 


PU2: 

AJMP 

SPF 

; 

Skip any protected fields 
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1 





; * 

CPF - 

check protected fields 


2 

3 





V 

*CPF* 

checks to see if the current position is protected. 

4 

5 





* 

If so 

it returns a value in the 

carry flas. 

6 

7 






ENTER 

XPOS and YPOS at position 

8 

9 





* 

• 

EXIT 

<C) = set if protected* 

clear otherwise 

10 









11 





; 

USES 

A* B, DPTR, TEMP, WORK, 

PTR1 

12 

13 

14 

0188 

E5 

3F 


CPFs 

MOV 

A, PF1ELD 

! Get protected fields 

15 

018A 

70 

02 



JNZ 

CPF 1 

; IF none protected THEN 

16 

018C 

C3 



CPFR1: 

CLR 

C 

> clear carry 

17 

018D 

22 




RET 


“ and r e t ur n 

18 

19 

018E 

FC 



CPF is 

MOV 

WORK, A 

? Save value 

20 

018F 

E5 

11 



MOV 

A, XPOS 


21 

0191 

.. .85_ 

. 12 ..... 

FO 


.MOV... 

. B,..YP.QS. 


22 

.23 

0194 

B1 

03 



ACALL 

CLA 

? Calculate line address 

24 

0196 

53 

83 

EF 


ANL 

DPH, #ATRANL 

5 Mask to attribute memory 

25 

0199 

.. EP. 




...Mpyx.. 

... A,..@DPTR. 

. Pe .t.. ,c.u r.c $.01 .. a.t tr. i b u.t $. 

26 

019 A 

54 

OF 



ANL 

A, #0000111 IB 

? Mask to set only attributes 

27 









28 

019C 

70 

05 



JNZ 

CPF2 

? IF no attributes set THEN 

29 

019E 

BC 

80 

EB 


.CJNE.. 

WORK, #80H, CPFR 1 

* IF not protected THEN return 

30 

01A1 

80 

04 



SJMP 

CPFR2 

; ELSE return protected 

.31 

.01 A3... 

... 5 C. 



CPF2S 

ANL 

A, WORK 

.“.. ELSE, ma.sk . w % t.b. .pr.o t.ec.te.d. 

32 

01A4 

B5 

04 

E5 


CJNE 

A, WORKA, CPFR1 

? IF no match THEN return 

.33. 









34 

01A7 

D3 



CPFR2: 

SETB 

C 

S Set carry 

.35. 

, 0.1 A 8 

22 




RET 


..“..Return. 
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.*** . Z-29.COMPUTER TERMINAL. 

firmware. .VERSION. .* ».Q3. 




1 




? 7 

SPF - 

skip over protected fields 


2* 

.3 





#SPF* 

checks . to. see. X f.. the .c.urr : ent. .position.. i .Pr.Qtec fed.. 


4 




; 

If so 

then the cursor is moved to the next unprotected 


.5 




• 

..character.. P.OS.it.ib.n. .QD. .t.he. .S£C.ee.n, If there are no unprotected 


6 




7 

positions from the current cursor position to the end of the 


7 




7 

screen 

then the cursor is moved to the HOME position. 


8 




5 

The screen address is only updated if the cursor position 


9 




? 

changes. 


10 




; 




11 




; 




12 




7 

ENTRY 

none 


13 




; 




14 




; 

EXIT 

none 


15 




; 




16 




; 

USES 

A, B» DPTR, WORK, TEMP, PTR1 


17 








is 








19 

01A9 

31 

88 

SPF: 

ACALL 

CPF ; Check protected fields 


20 

01AB 

40 

01 


JC 

SPO ? IF not protected THEN 

L 

21 

01 AD 

22 



RET 

; return 


22 








23 

01AE 

E5 

11 

SPOs 

MOV 

A, XPOS 


24 

01 BO 

B4 

4F 

il 

CJNE 

A, #MAXCHAR, SP2 ? IF end of line THEN 


25 

01B3 

75 

11 

00 

MOV 

XPOS, #0 ? beginning of line 


26 

01B6 

E5 

12 


MOV 

A, YPOS 


27 

01B8 

B4 

17 

05 

CJNE 

A, #MAXLINE~1, SP1 5 IF end of screen THEN 


28 

01BB 

75 

*i : 2* 

00 

MOV 

YPOS, #0 , beginning of screen 


29 

01 BE 

81 

EA 


AJMP 

BLINAD ? new address and return 


30 








31 

01 CO 

05 

12 

SPls 

INC 

YPOS ? ELSE bump line number 


32 

0*1 C 2 

‘ * *80. 

02 


SJMP 

SP3 ! calc address and go 


33 








34 

01C4 

05 

11 

SP2s 

INC 

XPOS 5 ELSE bump column number 


35 

01C6 

91 

EA 

SP3s 

ACALL 

BLINAD • calc new address 


36 

Dies 

80 

DF 


SJMP 

SPF ? keep on going 
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*** Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1-03 


1 





; ; 

PCIF - 

place character in input FIFO 

2 

3 





7 

*PCIF# 

places a single character 

into the input FIFO. 

4 

5 





? 





6 

7 





! 

ENTRY 

(A) = character 



8 






EXIT 

(A) = character 



9 





; 


•'C' = set if no room? 

clear otherwise 

10 

11 





? 


"FO'' = set if XOFF is 

needed, clear otherwise 

12 





? 

USES 

A B, DPTR 



13 










14 










15 

01C A 

C2 

AF 


PCIF: 

CLR 

EA 

; 

Lock out entries 

16 

01CC 

75 

83 

57 


MOV 

DPH, #H IGH (IBUF 1 ) 



17 

01CF 

85 

OC 

82 


MOV 

DF'L, I STORE 

; 

Load input buffer pointer 

18 

01D2 

FO 




MOVX 

©DPTR, A 

; 

Write character into FIFO 

19 

01D3 

F5 

FO 



MOV 

B, A 

; 

Save temporary 

20 










21 

01D5 

E5 

OE 



MOV 

A, ICOUNT 



22 

01D7 

B4 

20 

03 


CJNE 

A, #ILEN, PIl 

? 

IF queue is full THEN 

23 

01 DA 

D3 




SETS 

C 

; 

set ■’C•' for no room 

24 

01DB 

80 

14 



SJMP 

PIR 

7 

and exit out 

25 










26 

01DD 

C2 

D5 


PIl: 

CLR 

FO 

; 

No -XOFF- until otherwise 

27 

01DF 

B4 

15 

02 


CJNE 

A, #IHI, PI2 


IF queue at XOFF point THEN 

28 

01E2 

D2 

D5 



SETS 

FO 

7 

flag that -XOFF- is needed 

29 










30 

01E4 

05 

OE 


PI 2: 

INC 

ICOUNT 

7 

Bump count 

31 

01E6 

05 

OC 



INC 

ISTORE 

; 

Bump store and check wrap 

32 

01E8 

E5 

OC 



MOV 

A, ISTORE 



33 

01EA 

B4 

FO 

03 


CJNE 

A, #LOW (IBUF+ILEN), 

P13 


34 

35 

01 ED 

75 

OC 

DO 


MOV 

ISTORE, #LOW (IBUF) 



36 

01F0 

C3 



P13 s 

CLR 

c 


Flag evervthing OK 

37 

01F1 

D2 

AF 


PIR: 

SETS 

EA 


Enable entries 

38 

01F3 

E5 

FO 



MOV 

A, B 


Restore character 

39 

01F5 

22 




RET 
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.... ***.. ZtZ9. .CCWP.UT.eR .TERMINAL. .FIRMWARE 

.VERSION. 1.-0.3. 

. 



.I 






FCIF ~ 

fetch, c ha..r.a£. tft.i?. .fr.Q*7*..i.HP.Mt. 

.FI.FO 

.3. 

4 





. 

.*FCIF*. 

FIFO if 

. X s. u.sft.d. .t P.. f.ft t.ch.. a.. 5 X 0Sift, 
any are available. 

.c.hanactftr. . fr.vm. .tbft. i.n.py t. 

.5 









6 









7 





; 

ENTRY 

none 


8 

9 





7 

EXIT 

(A) « character if available 

10 

11 





7 


'■ C" = set if no character 

, clear otherwise 

12 





; 

USES 

A, Bj DPTR 


13 









14 









15 

01F6 

E5 

OE 


FCIFs 

MOV 

A, ICOUNT 


16 

01F8 

70 

02 



JNZ 

FI 1 

IF no data in queue THEN 

17 

01 FA 

D3 




SETB 

C ? 

set carry and return 

18 

01FB 

22 




RET 



19 









20 

01FC 

B4 

09 

03 

FI1! 

CJNE 

A, #ILO, FI2 ? 

IF low water mark THEN 

21 

01FF 

12 

1018 



LCALL 

R2-X0N ; 

send -XON- now 

22 









23 

0202 

C2 

AF 


FI2: 

CLR 

EA 

L ock out entries 

24 

0204 

75 

83 

57 


MOV 

DPH, #HIGH (IBUF > 


25 

0207 

85 

OB 

82 


MOV 

DPL, IFETCH 

Load input buffer pointer 

26 

020A 

''' EO 




MOVX 

A, @DPTR 5 

Read character from FIFO 

27 

020B 

F5 

FO 



MOV 

B, A ; 

Save temporary 

28 









29 

020D 

05 

OB 



INC 

IFETCH ? 

Bump fetch and check wrap 

.30 

020F 

E5 

OD 



MOV 

A, IFETCH 


31 

0211 

B4 

FO 

03 


CJNE 

A» #LOW (IBUF+ILEN), FIS 


32 

0214 

'75 

OD 

DO 


MOV 

IFETCH, #LOW (IBUF) ? 

Reset value of fetch pointer 

33 









34 

0217 

15 

OE 


FI3! 

DEC 

ICOUNT ; 

Decrement count 

35 

0219 

21 

FO 



AJMP 

PI3 ? 

Re turn (s ave s ROM) 
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1 




1 7 

LCIF - 

look at next character on 

input FIFO 

2 

3 




! 

*LCIF* 

returns the next character 

from the input FIFO if there 

4 

cr f 




7 

is one 
] o o k 

but does not take it off the FIFO. This is needed for 
ahead" applications. 

6 

.7. 




■ 




8 

9 




7 

7 

ENTRY 

none 


10 

11 




9 

EXIT 

(A) = character if available 

"C" = set if no character, clear otherwise 

12 

13 




■ 

USES 

A, DPTR 


14 

15 

16 

17 

02 IB 

021 D 

E5 

70 

OE 

02 

LCIFs 

MOV 

«JNZ 

A, ICOUNT 

LIl ; 

IF no data in nueue THEN 

18 

19 

02 IF 
0220 

D3 

22 



SETB 

RET 

C 5 

set carrv and return 

20 

21 

0221 

75 

83 

57 LIl: 

MOV 

DPH* #HIGH (IBUF) 


22 

23 

Q o 
W W 
w r-j 

4* 

85 

EO 

ob 

82 

MOV 

MOVX 

DPL 7 IFETCH 5 

A, ©DPTR ? 

Load input buffer pointer 

Read character from FIFO 

24 

25 

0228 

0229 

C3 

22 



CLR 

RET 

C 5 

Flag everything ok 
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1 





. . 

PCOF - 

place character in output FIFO 

3 





. 

*PCOF* 

places a single character into the output FIFO and 

4 

5 





! 

checks 

for on1ine and haIf du p 1 ex. 

6 

7 





: 

ENTRY 

(A) = character 

8 

9 





« 

EXIT 

(A) = character 

10 

11 





» 


•"C" ~ set if no room in FIFO, clear otherwise 

12 

13 





5 

USES 

A, B, DPTR ■***' ““ ‘ . . 

14 

15 

022A 

20 

2E 

02 

PC OF: 

.JB 

ONLINE, F'Ol ? IF offline THEN 

16 

17 

022D 

80 

9B 



SUMP 

PCIF " place on input and return 

18 

19 

022F 
0232 

20 

31 

2F 

CA 

02 

PO1 s 

•JB 

ACALL 

FULlDPLX, P02 ? IF in half duplex mode THEN 

PC IF ? place on input also 

20 

21 

0234 

F5 

FO 


P02: 

MOV 

B, A ? Save temporary 

22 

23 

0236 

0238 

E5 

B4 

OF 

F7 

04 


.MOV. 

CJNE 

A, OSTORE 

A, #LOW (OLEN), P03 5 IF store = queue length THEN 

24 

25 

' 023B 
023C 

D3 

E5 

FO 



SET B 
MOV 

U ' set •' U •' for full 

A, B ? restore char and return 

26 

27 

023E 

22 




.RET. 


28 

29 

023F 

0240 

C3 

75 

83 

57 

P03s 

CLR 

MOV 

C ? ELSE clear •"C•' 

DPH, #HIGH (OBUF) ? set up the output 

30 

31 

0243 

0246 

85 

E5 

OF 

FO 

82 


MOV 

MOV 

DPL, OSTORE 5 buffer pointer . 

A, B ? restore character 

32 

33 

0243“* 

0249 

' ‘ FO' 
05 

OF 



Hovx 

INC 

©DPTR, A ? write character to buffer 

OSTORE ! bump store and return 

34 024B 

' ’ '22' 




.per. 
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1 




. . 

FCOF - 

fetch character from output FIFO 

2 

3 





*FCOF* 

fetches a character from the output FIFO if anv 

4 

5 




! 

are available. 

6 

7 




■ 

ENTRY 

none 

8 

9 




? 

EXIT 

(A) = character if available 

16 

11 




• 


'C-' = set if no characters, clear otherwise 

12 

13 




" 

USES 

A 7 B 7 DPTR 

14 

15 024C 

E5 

OF 


FCOF 5 

MOV 

A, OSTORE 

"* ' i ‘6 024E 

■ *' m' 

io 

02 


CJNE 

A 7 OFETCH 7 FOi ? IF store = fetch THEN 

17 0251 

D3 




SETB 

C " set 'X^ and return 

.18'0252 

19 

22 




RET 


20 0253 

75 

83 

57 

FGl: 

MOV 

DPH, #HIGH (OBUF) 

21 0256 

35 

10 

82 


MOV 

DPL 7 OFETCH ? Load output buffer pointer 

.22 0259 * 

'' * EO* 




MOVX 

A? ©DPTR • Get character from buffer 

23 025A 

F5 

FO 



MOV 

B 7 A ; Save temporary 

.24 025C'* 

''' C2 

AF 



CLR 

EA ? Lock out entries 

25 025E 

05 

10 



INC 

OFETCH ! Bump fetch pointer 

.26 ‘ 0260' 

27 

*' * E5 

OF 



MOV 

A, OSTORE 

28 0262 

B5 

10 

06 


CJNE 

A 7 OFETCH, FOR ? IF store = fetch THEN 

29 0265 

75 

10 

FO 


MOV 

OFETCH, #LOW (OBUF) ; reset the values of 

30 0268 

31 

* ‘' 75 

OF 

FO 


MOV 

OSTORE, #LOW (OBUF) ? fetch and store 

32 026B 

21 

FO 


FOR: 

AJMP 

PIS ? Return (saves ROM) 
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1 

5 5 

PCKB ~ 

place character out to the keyboard 

2 

3 

; 

*PCKB* 

outputs bytes to the keyboard us ins a special handshake. 


4 


6 

7 





- 

ENTRY 

(A) - byte to output 


p> 

9 





; 

EXIT 

none 


10 

11 





? 

USES 

A? B, WORK 


12 









13 

026D 

12 

102 A 


PCKB: 

LCALL 

R2-KY2 

, Keyboard hook 

14 









15 

0270 

30 

91 

OC 


•JNB 

KBINt PK1 

? IF data THEN 

16 

0273 

CO 

EO 



PUSH 

ACC 

? save byte 

17 

0275 

51 

B6 



ACALL 

FCKB 

, fetch char from keyboard 

18 

0277 

40 

02 



JC 

PKO 

? IF none now THEN exit 

19 

0279 

51 

EE 



ACALL 

KBCP 

? ELSE process character 

20 

027B 

DO 

EO 


PKO: 

POP 

ACC 


21 

027D 

80 

EE 



SUMP 

PCKB . 

> and try again 

ZZ 

23 

027F 

C2 

AF 


PK1: 

CLR 

EA 

? Disable .interrupts 

24 

0281 

C2 

90 



CLR 

K80UT 

? Request keyboard attention 

25 

0283 

75 

FO 

08 


MOV 

Bt #8 

? Initialize index for 8 bits 

26 

27 

0286 

30 

91 

06 


.JNB 

KBIN, PK1A 

! IF contention THEN 

28 

0289 

D2 

AF 



SETB 

EA 

" enable interrupts 

29 

028B 

D2 

90 



SETB 

KBOUT 

, wipe out request 

30 

028D 

80 

DE 



SUMP 

PCKB 

, try asain 

31 









32 

028F 

D2 

AF 


PK1A: 

SETB 

EA 

, Enable interrupts 

33 









34 

0291 ''' 




PKL: 

RRC 

A 

? REPEAT rotate next bit in 

35 

0292 

7C 

00 



MOV 

WORK, #0 

, init count for safety check 

.3*6* 

0294'' 

''' 20 . 

' ' 9i. 

''' OE''' 

PK2: 

JB 

KBINt PK3 

’ REPEAT wait for request 

37 

0297 

51 

B5 



ACALL 

PKDLY 

, delay some time 

38 

0299 

'' Si. 

B5 



.ACALL'' 

pkdLy 


39 

029B 

51 

B5 



ACALL 

PKDLY 


40 

029D 

51 

B5 



ACALL 

PKDLY 


41 

029F 

51 

B5 



ACALL 

PKDLY 


‘ ‘' 42' 

‘02 AT 

.. WJ .... 

FI 



DJNZ 

WORK, PK2 

* UNT.iL check is done 

43 

02 A3 

80 

OE 



SUMP 

PKR 


44 









45 

02A5 

92 

90 


PK3: 

MOV 

KBOUT, C 

* output data 

46 

02 A 7 

7C 

00 



MOV 

WORK, #0 

, init count for safetv check 

47 

02A9 

30 

.. .... 

91 

04 

PK4S 

JNB 

KBIN, PK5 

? REPEAT wait for signal 

48 

02 AC 


FB 



DJNZ 

WORK, PK4 

? UNTiL safety check done* 

49 

02AE 

80 

03 



SJMP 

PKR 


'50 









51 

02B0 

D5 

FO 

DE 

PK5S 

DJNZ 

B, PKL 

? UNTIL all 8 bits are done 

. 

53 

02B3 

D2 

90 


PKRs 

SETB 

KBOUT 

* Restore status 

54 

02B5 

22 



PKDLY: 

RET 
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1 




" ’ 

FCKB - 

fetch character 

from keyboard 

2 




m 

7 

*FCKB* 

takes characters 

from the keyboard using a special 

4 

5 




u 

7 

* 

7 

handshak 1 ns. 


6 

7 




7 

7 

ENTRY 

none 


8 




7 




9 




7 

EXIT 

(A) = character 

if available 

10 






•"CP = set if no 

characteri clear otherwise 

11 




7 




12 




7 

USES 

A, B, DPTR 


13 








14 

15 02 B 6 

12 

1027 


FCKB: 

LCALL 

R2_KY1 

; Keyboard hook 

i ‘6 

17 02B9 

20 

91 

02 


JB 

KBIJM, FK1 

? IF no data THEN 

IS 02BC 

D3 




SETB 

C 

; set carry and return 

19 02BD 

22 




RET 



20 

21 02 BE 

75 

39 

00 

FKls 

MOV 

AUTOCNT, #0 


22 02C1 

23 

D 2 

24 



SETB 

VSPF 

* toggle screen saver 

24 02C3 

E4 




CLR 

A 

" Init receiving bvte 

25 02C4 

75 

FO 

08 


MOV 

B, #8 

? Init index counter 

26 

27 02C7 

C 2 

90 


FKLs 

CLR 

KBOUT 

? REPEAT reguest data 

28 02C9 

51 

El 



ACALL 

FKDLY 

' delay 200 usee 

29 02CB 

51 

El 



ACALL 

FKDLY 


30 02CD 

A2 

91 



MOV 

C, KBIN 

? get data bit 

31 02CF 

D 2 

90 



SETB 

KBOUT 

; data received 

32 02D1 

92 

E7 



MOV 

ACC. 7, C 

5 place data into word 

33 02D3 

D5 

FO 

02 


DJNZ 

B, FK2 

? IF all 8 bits THEN 

34 02D6 

80 

05 



SUMP 

FKR 

? exit out 

36 02D8 

03 



FK2S 

RR 

A 

? rotate to next bit 

37 02D9 

51 

El 



ACALL 

FKDLY 

* delay 100 usee 

38 02DB 

39 

80 

EA 



SUMP 

FKL 

■ UNTIL forever 

40 02DD 

51 

El 


FKRs 

ACALL 

FKDLY 

? Delay last time to let clear 

41 02DF 

C3 




CLR 

C 

’ Clear " C:" for ok 

42 02E0 

43 

22 




RET 



44 




; 

De 1 av 

r out i ne 


45 








46 02E1 

75 

W3 

IE 

FKDLY: 

MOV 

DPH 7 #30 

* De1 ay o f 100 usee 

47 02E4 

D5 

pp 

FD 

FKDLYi: 

DJNZ 

DPH 7 FKDLYI 


48 02E7 

22 




RET 
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1 




» « 

LKB - look at kexboar.d 



2 

3 




5 

#LKB* looks at keyboard 

to see if 

it has anv data it wants 

4 

cr f 




. ? . 

to send to the host 



6 








7 




; 

ENTRY none 



8 




; 




9 





EXIT (C) = set If no 

character > 

clear otherwise . 

10 








11 




; 

USES none 



12 








13 








14 02E8 

C3 



LKB s 

CLR C 



15 02E9 

20 

91 

01 


.JB KBIN, LKBR 

; 

IF no .d.^t.a THEN 

16 02EC 

D3 




SETB C 

; 

set carry and return 

17 02ED 

22 



LKBR: 

RET 
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1 





; ; 

KBCP - 

keyboard character processor 

!“! 





. 

*KBCP* 

processes any characters received From the keyboard. 

4 5 

6 

7 





1 

ENTRY 

(A) = bvte from keyboard 

8 

9 





1 

EXIT 

none 

10 





; 

USES 

al 1 

11 








12 








13 

02EE 

20 

E7 

03 

KBCP: 

JB 

ACC.7, KPO ? IF ASCII character THEN 

14 

02 F 1 

41 

2 A 



AJM P 

PCQF * output char and return 

15 

02F3 

22 



KPR! 

RET 


16 








17 

02F4 

A2 

E 6 


KPOs 

MOV 

C, ACC .6 

18 

02 F 6 

92 

1C 



MOV 

SHIFTF 7 C ? Save shift value 

19 

02F8 

A2 

E5 



MOV 

C, ACC.5 

20 

02FA 

92 

ID 



MOV 

CONTLF, C ’ Save control value 

21 

02FC 

54 

9F 



ANL 

A? #100111116 5 Mask off shift and control 

22 

02FE 

30 

IE 

02 


JNB 

ACCESSF, KP1 5 IF access in progress THEN 

23 

0301 

61 

CD 



AJMP 

KPA ? do a long Jump 

24 








25 








26 





; 

No access in progress 

27 





V 



28 

0303 

75 

FO 

09 

KP1: 

MOV 

B, #KBDTL ? (B) = table length 

29 

0306 

90 

044B 



MOV 

DPTR, #KBDT ? (DPTR) = keyboard data table 

30 

0309 

31 

3 A 



ACALL 

STAB ? Search the table 

31 

03 OB 

40 

02 



JC 

KP2 ; IF found THEN 


33 


34 



[ 

Command 

from keyboard 


36 030D 

E4 



CLR 

A 


37 030E 

73 



•JMP 

©A+DPTR 

? Jump to routine 

38 

39 

40 



; 

Cursor 

keys 


41 



• 




42 03OF 

FD 


KP2: 

MOV 

TEMP, A 


43 0310 

E5 

OF 


MOV 

A, OSTORE 

? IF output FIFO not empty THEN 

44 0312 

B5 

10 

DE 

CJNE 

A, OFETCH, KPR 

; loose character and return 

45 0315 

ED 



MOV 

A, TEMP 


46 







47 0316 

75 

FO 

07 

MOV 

B, #KBCRTL 

? (B) = table length 

48 0319 

90 

0466 


MOV 

DPTR, #KBCRT 

? (DPTR) = kb cursor table 

49 031C 

31 

3 A 


ACALL 

STAB 

; Search the table 

50 03IE 

40 

2F 


.JC 

KP6 

? IF found THEN 

51 0320 

20 

42 

DO 

JB 

ADM3, KPR 

; IF .APM 3 mode THEN exit 

52 0323 

20 

43 

CD 

JB 

HAZ, KPR 

; IF Haz mode THEN exit 

53 0326 

CO 

82 


PUSH 

DPL 

* save values 

54 0328 

CO 

83 


PUSH 

DPH 


55 032A 

74 



MOV 

..A?..# ESC. 


56 032C 

91 

_. 

lY 


ACALL 

KPCOF 

* output escape 

..... .. 57.0-32E 

30 

40 

04 

.-,INB. 

ANSI, KPS . ... , 

.?.JF. .in. .ANSI. jno.de. .THEN. 
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1 0331 

74 

5B 


MOV 

A* #"C" 



2 0333 

9i 

14 


ACALL 

KPCOF 

; 

output •" l '■ 

3 0335 

DO 

EO 

KPS 5 

POP 

.. .AC.Q. 



4 0337 

60 

12 


JZ 

KP4 

; 

IF erase key AND 

5 0339 

.. .3.0. 

.IQ. 

OF 

..UNR.... 

.. SHIFTF.*.. KF4. 


. IF.. shX f.t . Hex. .dowo. .THEN. 

6 033C 

30 

40 

06 

•JNB 

ANSI, KPS 

; 

IF in ANSI mode THEN 

7 033E.. 

.. .7.4. 

.32. 


.MOV. 

.. a,..#-;2 .-:. 



8 0341 

91 

14 


ACALL 

KPCOF 

; 

output "2" 

9 0343.. 

.. .80. 

06 


SJMP 

KP4 



10 0345 

F5 

go 

KPS: 

MOV 

DPL, A 

; 

ELSE in ZDS mode 

11 0347 

DO 

EO 


POP 

ACC 

; 

rep] ace..c.ha.r .oo stack 

12 0349 

CO 

82 


PUSH 

DPL 

; 

to be used below 

13 034B 

DO 

EO 

KP4: 

POP 

ACC 



14 034D 

15 

81 

14 


AJMP 

KPCOF 

5 

Output next char and return 

16 

17 



. 

Numeri 

c keypad key 



18 

19 034F 

A2 

1C 

KP6! 

MOV 

C, SHIFTF 



20 0351 

30 

30 

01 

.JNB 

KPADSHTF, KP7 

; 

IF keypad is shifted THEN 

21 0354 

B3 



CPL 

...c. 

? 

... inye.r:t. .shi.f.t. .fWh.Qti.on.. 

22 0355 

92 

1C 

KP7: 

MOV 

SHIFTF, C 

; 

save final result 

23 0357 

92 

E6 


MOV 

ACC. 6, C 

; 

.... p 1 ace.. i.n jt.Q. .da.t a.. word. a 1.5. o.. 

24 0359 

75 

FO 

1C 

MOV 

B, #KBPDTL 

? 

(B) = table length 

25 035C 

90 

047B 


MOV 

DPTR, #KBPDT 

7 

(DPTR) = keypad table 

26 035F 

31 

3A 


ACALL 

STAB 


search the table 

27 0361 

50 

02 


JNC 

KP 16 

? 

IF riot found THEN 

28 0363 

29 

80 

8E 


SJMP 

KPR 

5 

exit out 

30 0365 

.31. 

20 

1C 

22 KP16S 

JB 

SHIFTF, KPS 

? 

IF keypad unshifted THEN 

32 0368 

20 

31 

06 

JB 

KPADALTF, KP9 

? 

IF keypad is ordinary THEN 

.33 0368 

E5 

83 

KP16As 

MOV 

..Ai.DPI-i.. 



34 0:36D 

si 

14 


AJMP 

KPCOF 

? 

output ordinary character 

35 036F 

36 

80 

.82. 


.SJMP... 

...KPR.., . 



37 0371 

20 

42 

F7 KP9s 

JB 

ADM3, KP16A 

; 

IF ADM 3 mode THEN ordinary 

38 0374 

20 

43 

F4 

JB 

HAZ, KP16A 

; 

IF Has mode THEN ordinary 

39 0377 

CO 

g2 


PUSH 

DPL 

. ? . 

.IF. keypad, .al.ternate THEN 

40 0379 

74 

IB 


MOV 

A, #ESC 


save character- 

41 037B 

91 

14 


ACALL 

KPCOF 

; 

output ESC 

42 037D 

74 

4F 


MOV 

A, #"G" 

m , 

IF in ANSI mode THEN" 

43 037F 

20 

40 

02 

JB 

ANSI, KPll 

; 

output "0-" 

44 0382 

74 

3F 


MOV 

A, #"?•" 

; 

ELSE IF in ZDS mode THEN 

45 0384 

91 

14 

KPll: 

ACALL 

KPCOF 

; 

output. 

46 0386 

DO 

EO 


.POP' 

ACC 



47 0388 

81 

14 


AJMP 

KPCOF 

? 

Output final char and return 

48 








49 








50 

51 



m 

7 

Insert 

mode key 



52 038A 

20 

42 

DE KP8S 

JB 

ADM3, KP16A 

; 

IF ADM 3 mode THEN ordinary 

53 038D 

20 

43 

DB 

JB 

HAZ, KP16A 

; 

IF Haz mode THEN ordinary 

54 0390 

B4 

D7 

21 

•CJNE 

A, #KB—7 + KB-SHFT, 

KP 12 


55 0393 

74 

IB 


MOV 

A, #ESC 



56 0395 

57 

91 

14 


ACALL 

KPCOF 

; 

Output ESC 
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1 0397 

20 

40 

09 


JB 

ANSI, KP13 

•; 

IF in ZDS mode THEN 

2 039A 

74 

40 



MOV 

A, 



3 039C 

30 

21 

02 


.JNB 

ICMODEF, KP14 

; 

check if in IC mode 

4 039F 

74 

4F 



MOV 

A, #-0*' 



5 03A1 

81 

14 


KP14: 

AJMP 

KPCOF 


out pu t char and return 

6 

7 03A3 

74 

5B 


KP13! 

MOV 

A, #•'£•' 

« 

IF in ANSI mode THEN 

8 03A5 

91 

14 



ACALL 

KPCdF' 

; 

output ‘I." 

9 03A7 

74 

34 



MOV 

A, # '4•' 



10 03A9 

91 

14 



ACALL 

KPCOF 

; 

output " 4 •" 

11 03AB 

74 

68 



MOV 

A, # " h '■ 



i2 03AD 

36 

21 

02 


JNB 

ICMODEF, KP15 

; 

IF in IC mode THEN 

13 03B0 

74 

6C 



MOV 

A, 



14 03B2 

15 

81 

14 


KP15S 

aJmf* 

KPCOF 

* 

out pu t char and return 

16 









17 




? 

Numeric 

keypad shitted 



18 




; 





19 03B4 

FD 



KP12 s 

MOV 

TEMP, A 



20 03B5 

AC 

82 



MOV 

WORK, DPL 


Save sec on d char 

21 03B7 

E5 

83 



MOV 

A, DPH 



22 03B9 

91 

14 



ACALL 

KPCOF 

" 

Output first key 

23 03BB 

EC 




MOV 

A, WORK 



24 03BC 

60 

55 



JZ 

KPR2 

; 

IF second char not null THEN 

25 03BE 

30 

40 

OA 


JNB 

ANSI, KP10 



26 03C1 

74 

5B 



MOV 

A, #•-£•' 



27 03C3 

91 

14 



ACALL 

KPCOF 


IF ANSI THEN output 'l' 

28 03C5 

EC 




MOV 

A, WORK 



29 03C6 

B4 

4E 

02 


CJNE 

A, # 'N *■, KP10 

; 

IF delete THEN 

30 03C9 

74 

50 



MOV 

A, # y P- 

7 

change it for ANSI, mode 

31 03CB 

81 

14 


KP10: 

AJMP 

KF'COF 

m 

output second char & return 

32 









33 









34 




; 

Access 

code in progress 



35 




; 





36 03CD 

C2 

IE 


KPAs 

CLR 

ACCESSF 

; 

Take out of access mode 

37 03CF 

FD 




MOV 

TEMP, A 

; 

Save for a while 

38 0300 

54 

F8 



ANL 

A, #lllliOOOB 

; 

Mask for keyboard ID number 

39 03D2 

B4 

98 

06 


CJNE 

A, #KB_ID, KPB 

; 

IF ID number THEN 

40 03D5 

ED 




MOV 

A, TEMP 

; 

get original data 

41 03D6 

54 

07 



ANL 

A, #000001118 

; 

mask for ID number 

42 OSDS 

F5 

ID 



MOV 

KBIDNUM, A 

; 

save ID number 

43 030A 

22 




RET 




44 









45 









46 




; 

Function key 



47 




; 





48 03DB 

20 

42 

35 

KPBs 

JB 

ADM3, KPR2 

; 

IF ADM 3 mode OR 

49 03DE 

20 

43 

32 


JB 

HAZ, KPR2 

; 

IF Haz mode THEN exit 

50 

51 03E1 

ED 




MOV 

A, TEMP 

. 

Get original character back 

52 

53 03E2 

75 

FO 

09 


MOV 

B, #KBFNTL 

. 

(B) = table length 

54 03E5 

90 

04CF 



MOV 

DPTR, #KBFNT 


(DPTR) = function key table 

55 03E8 

...m . 

3A 



ACALL 

STAB 

; 

Search the table 

56 03EA 

40 

27 



JC 

KPR2 


IF found THEN 

57 03EC 

CO 

82 



PUSH 

DPL 


save values returned 
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1 

03EE 

CO 

83 



PUSH 

DPH 


2 

03F0 

74 

IB 



MOV 

A, #ESC 



03F2 

91 

14 



ACALL 

KPCOF 

* output an ESC 

4 

03F4 

30 

40 

OB 


•JNB 

ANSI, KPC 

? IF in ANSI mode THEN 

5 

03F7 

74 

4F 



MOV 

A, #-0- 


6 

03F9 

91 

14 



ACALL 

KPCOF 

? output ‘O' 

7 

03FB 

DO 

E0 



POP 

ACC 


O 

03FD 

91 

14 



ACALL 

KPCOF 

? output next character 

9 

03FF 

DO 

E0 



POP 

ACC 


10 

0401 

22 




RET 



11 









12 

0402 

DO 

EO 


K PC 2 

POP 

ACC 

5 IF in ZDS mode THEN 

13 

0404 

DO 

EO 



POP 

ACC 

? get proper char 

14 

0406 

30 

E7 

OB 


■JNB 

ACC.7, KPCOF 

? IF high bit set THEN - 

15 

0409 

C2 

E7 



CLR 

ACC. 7 

? clear high bit 

16 

040B 

FD 




MOV 

TEMP, A 


17 

040C 

74 

30 



MOV 

A, #-0- 


18 

040E 

91 

14 



AcALL 

KPCOF 

" output 0 

19 

0410 

ED 




MOV 

A, TEMP 


20 

0411 

81 

14 



AJMP 

KPCOF 

5 output next character 

21 

0413 

22 



KPR2S 

RET 




24 

25 





l 

Check 

if local function and < 

?xecute proper- routine 

26 

0414 

20 

ID 

02 

KPCOF: 

JB 

CONTLF 7 KPC1 

“ IF control not pressed THEN 

27 

0417 

41 

2A 



AJMP 

PC OF 

; output char and return 

28 

29 

0419 

21 

CA 


KPCls 

AJMP 

PC IF 

? ELSE d o local an d re t u rn 
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1 





• - 

KBTAB - 

kerb oard tab r outine 

9 

3 





. 

♦KBTAB* 

checks to see if the SHIFT kev is down- If it is 

4 






down then it checks for ZDS or ANSI mode- If it is in one 

«£j 






of those modes then the sequence to for backtab is sent. 

6 





5 



7 





; 



ft 

9 





7 

ENTRY 

none 

10 





; 

EXIT 

none 

11 





7 



12 





; 

USES 

al 1 

13 








14 








15 

04 IB 

30 

1 C 

OF 

KBTAB: 

■JNB 

SHIFTF» KTI ? IF not SHIFT THEN just TAB 

16 

04 IE 

90 

0431 



MOV 

DPTR, #KTM1 ? get ANSI sequence 

17 

0421 

20 

40 

06 


JB 

ANSI, KTO ? IF ANSI mode THEN do it 

18 

0424 

30 

41 

06 


JNB 

ZDS, KTI ? IF not ZDS THEN Just TAB 

19 

0427 

90 

0434 



MOV 

DPTR, #KTM2 ? ELSE get ZDS sequence 

20 

042A 

02 

0E6D 


KTO: 

LUMP 

PSOF " output back tab sequence 

21 








22 

042D 

74 

09 


KTi: 

MOV 

A, #HT 

.23. 

042F . 

...41 .... 

2 A 



AJMP 

PCOF ? ELSE output horizontal tab 

24 








25 

0431 

IB 

5B 

DA 

KTM1; 

DB 

ESC, - C ', (- Z-'+SOH) ? ESC C Z 

26 

0434 

IB 

AD 


KTM2: 

DB 

ESC, (+SOH> 5 ESC - 

.27. 








28 








29 








30 








.3.1. 





; ; 

KBSPACE 

- keyboard space routine 

32 





; 



.33. 





? 

♦KBSPACE* outputs a space unless the control key is down 

34 

.3.3. 





• 

in which case it outputs a null character. 

36 





; 



. ...37. 





; 

ENTRY 

none 

38 





; 



39 





; 

EXIT 

none 

40 





; 



.41. 





? 

USES 

al 1 

42 








43 








44 

0436 

74 

20 


KBSPACEs 

MOV 

A? tt? Default to space 

. 43 

.0438.. 

... 3Q.... 

.ID. 

01 


JNB 

CONTLF, KBS1 ? IF control space THEN 

46 

043B 

E4 




CLR 

A 5 output a nul1 

47 

043C . 

. 41.. 

2 A 


KBS is 

AJMP 

PCOF 5 Output character and return 
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1 





KBENT ” 

k e v h o a r d e n t e r r o u t i n e 

2 




* 

#KBENT# 

outputs a carriage return unless the shift kev is 

4 




; 

down in 

which case it does the print page function. 

6 

7 




« 

ENTRY 

none 

9 




u 

EXIT 

none 

10 

11 




. 

USES 

al 1 

12 

13 

14 

13 

043E 
0441 

20 

74 

ID 04 

9B 

KBENTs 

JB 

MOV 

CONTLF> KBEl ” IF no control THEN 

A, #KB-ENT * get kepad enter kev 

16 

17 

0443 

0445 

61 

02 

OF 

103C 

KBE1; 

AJMP 

JMP 

KP2 * enter back into code 

R2-.PRNT ? ELSE do print page function 

13 

19 

20 

21 

22 

23 




; ’ 

KBACC ~ 

k e y b o a r d a c c e s s r o u t i n e 

24 

25 




] 

#KBACC# is run whenever the access character is received 
f r o m t h e k e y b o a r d» 

26 ? 

27 ! 

29 




l 

ENTRY 

n o n e 

30 

31 




‘ 

EXIT 

none 

32 




? 

USES 

n o n e 

34 

0448 

D2 

IE 

KBACCS 

SETB 

ACCE8SF ? F r 1 a s a c ce s s re ce i ve d 

. 36 ‘ 

04‘4A‘' ’' 

22 



RET 
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1 

. a 

KBDT - 

keyboard data table 


2 

. 

*KBDT * 

contains the commands 

received from the keyboard 

4 

; 

Table entries are: Keyboard 

data word followed by the 

6 

7 


address 

of the routine which 

performs the requested function. 

8 

9 

044B KBDT 

EQU 

$ 


10 

11 044B 

8 B 

DB 

KB-TAB 

? Tab kev 

12 044C 

13 

04 IB 

DW 

KBTAB 


14 044E 

8 C 

DB 

KE-SPACE 

’ Space bar 

15 044F 

0436 

DW 

KBSPACE 


16 

17 0451 

9F 

DB 

KB_ACC 

; Access code 

18 0452 

19 

0448 

DW 

KB ACC 


20 0454 

8 F 

DB 

KB-POWER 

; Keyboard Just powered up 

21 0455 

...10 IE. 

DW 

R2_IKB 


22 

.23.0457 

3.9. 

DB 

KB-BREAK 

; Break pressed 

24 0458 

25 

OFCC 

DW 

KBBREAK 


26 045A 

8 A 

DB 

KB-GAPS 

; Caps locked mode 

.27.. 0.45.8... 

20 

...0.FJ3F. 

DW 

KBCPLK 


. 2?.. 0.45JO... 

.. .87,. 

DB 

KB-SCROLL 

; Scroll key pressed 

30 045E 

.31 . 

0FE3 

DW 

KBSCROLL 


32 0460 

88 

DB 

KB-SETUP 

? Setup key pressed 

.3.3 .P.46.1... 

34 

... .1.0.21. 

DW 

R2-SETUP 


35 Q463 

9 p 

DB 

KB-ENT 

? Enter k e v pressed 

36 0464 

.3.7. 

043E 

DW 

KBENT 


;~;C; 

0009 KBDTL 

EQU 

<i-KBDT)/3 

; Table length 
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X. 


3 




? “ 

KBCRT ~ 

k e y b o a r d c u r sor- t a b 1 e 

4 




; 

*KBCRT* 

contains the ASCII values to be transmitted by the 

g 




.i.... 

terminal 

when received 

f r om the k e y b oar d. 

6 








7 




* 

Table entries are! Keyboard data word followed bv the 

8 




; 

ASCII character to be 

transmitted if in shift mode followed bv 

9 




* 

the ASCII character to 

be transmitted always. The special case 

10 





here is 

the erase and 

shift erase function key. 

11 








12 








.*3 


0466 


KB CRT 

EQU 

* 


14 








15 

0466 

80 



DB 

KB_UP 

5 Up arrow key 

16 

0467 

00 

41 


DB 

0 , -A-' 


17 








18 

0469 

81 



DB 

KB-DOWN 

• Down arrow key 

19 

046A 

00 

42 


.DB. 

0 , -B- 


20 








.21. 

046C... 

82 



DB 

KB-LEFT 

? Left arrow key . 


046D 

00 

44 


DB 

0, -D - 


23 








24 

046F 

83 



DB 

KB-RIGHT 

? Right arrow key 

25 

.0470... 

00 

43 


DB 

o, -c- 


26 








27 

0472 

84 



DB 

KB-HOME 

? Home key 

28 

0473 

00 

48 


DB 

0 , *' H 


29 








30 

0475 

86 



DB 

KB-HELP 

; Help key 

31 

0476 

00 

7E 


DB 

o, - ~ 


32 








33 

0478 

85 



DB 

KB-ERASE 

? Erase key 

34 

0479 

45 

4A 


DB 

y J y 


OCj 








36 


0007 


KBCRTL 

EQU 

($-KBCRT >/3 

? fable lensth 
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1 


. . 

KBPDT - ke y board key pad table 

2 



*KBPDT* contains the ASCII values to be transmitted tv the 

4 

5 


! 

terminal when 

received from the keyboard. 

6 

7 


? 

Table entries are: Keyboard data word followed bY the 

ASCII character to be transmitted if in unshifted followed 

8 

9 


? 

bY the ASCII character to be transmitted if in any mode. 

The shifted key format uses keyboard data + shift function 

10 

. 1.1 . 


5 

followed by teh escape sequence or ASCII character to be 
transmitted. The exception to this is the insert character 

12 

13 


? 

key. In this case the first character is the character for 

enter ins IC mode and the second is for leavins IC mode. 

14 

15 

16 

17 

047B 

KBPDT 

EQU $ 


18 047B 

19 047C 

90 

30 

7P.. 

DB KB_0 

DB "O', 

? Keypad 0 key 

•" p •" 

20 

.21..0A7E... 

22 047F 

23 

.. .9.1. 

31 

71 

DB KB-i 

DB 1' , 

? Keypad 1 key 

•" s •" 

24 0481 

.25..<Q482... 

26 

.27.. 0.484... 

92 

.. 32. 

93 

.72. 

DB KB_2 

DB 2 •", 

DB KB-3 

#; Keypad 2 key 

•" r •" 

? Keypad 3 key 

28 0485 

. 22 . 

33 

73 

DB '3 ', 

•" s ' 

e 30 0487 
.3.1. .04.88... 

94 

.. 34. 

74 

DB KB_4 

DB 4 ", 

? Keypad 4 key 

"• t •' 

32 

.3.3. .048A... 

95 


DB KB_5 

* Keypad 5 key 

34 048B 

35 

75 

DB "S', 

•" u " 

36 048D 

.37. .04.8E .. 

38 

.3.9.0480... 

96 

.. .36. 

...97. . 

.76 

DB KB -6 

DB " 6 "', 

DB KB-7 

? Keypad 6 key 
v" 

* Keypad 7 key 

40 0491 

.41. 

37 

77 

DB "7", 

•- uj •- 

42 0493 

.4.3..04.94... 

98 

.73 . 

DB KB -8 

DB "S', 

5 Keypad 8 key 

44 

45 0496 

99 


DB KB 9 

? Keypad 9 key 

46 0497 

47 

39 

79 

DB " 9", 

" y ' 

48 0499 

..49. .0.49A ... 

9 A 

...2E. 

. 6 .E. 

DB KB-DEC > Keypad decimal point key 

. DB n •" . . . . 

50 

.5.1. .Q49C .. 

9B 


DB KB_ENT ? Keypad enter key 

52 049D 

.53. 

00 

4D 

DB CR, "• 

M' 

54 049F 

.55.0.4 AO... 

9C 

...2D. 

. 6.0 . 

DB KB-DASH , Keypad dash (minus) key 

.08./.nr;. 

56 

.5.7..Q4A2... 

... 90. 


DB KB-COMMA ? Keypad comma key 
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1 04 A3 

2C 

6C 


DB 

-, -, -1 



3 04A5 

DO 



DB 

KB—0 + KB-SHFT 

. 

Keypad 0 key shifted 

4 04A6 

30 

00 


DB 

•"0-\ NULL 



6 04A8 

D1 



DB 

KB-1 + KB-SHFT 

; 

K e ypad 1 k e v shifted 

7 04A.2... 

...IB. 

4C 


DB 

ESC, -L- 



.9 .0.4A.B... 

D2... 



DB 

KB _.2 + KB-SHFT 

. 

K e vpad 2 ke y shifted 

10 04AC 

11 . 

IB 

42 


DB 

ESC, -'B-' 



12 04AE 

D3 



DB 

KB—3 + KB-SHFT 

; 

Keypad 3 key shifted 

13 04AF 

IB 

4D 


DB 

ESC, -M- 



14 

15 04B1 

D4 



DB 

KB-4 + KB_SHFT 

. 

Kevpad 4 kev shifted 

16 04B2 

17 

IB 

44 


DB 

ESC, D •" 



18 04B4 

D5 



DB 

KB—5 + KB-SHFT 

; 

Keypad 5 key shifted 

19 04B5 

IB 

48 


DB 

ESC, " H •' 



20 

21 04B7 

06 



DB 

KB-6 + KB_SHFT 

. 

K e ypa d 6 k ey shifted 

22 04B8 

IB 

43 


DB 

ESC, -C- 



24 04BA 

D7 



DB 

KB—7 + KB_SHFT 

; 

Keypad 7 key shifted 

25 04BB 

IB 

40 


DB 

ESC, -■ <2 



26 

27 04BD 

D8 



DB 

KB-8 + KB-SHFT 

u 

? 

Keypad 8 key shifted 

28 04BE 

29 

IB 

41 


DB 

ESC, ■' A •- 



30 04CO 

D9 



DB 

KB-9 + KB-SHFT 

; 

Ke y pa d 9 k e y s h i f t e d 

31 04C1 

IB 

4E 


DB 

ESC, -N- 



32 

33 04C3 

DA 



DB 

KB-DEC + KB-SHFT 

. 

Keypad decimal key shifted 

34 04C4 

35 

2E 

00 


DB 

NULL 



36 04C6 

DB 



DB 

KB-ENT 4- KB-SHFT 

; 

Keypad enter key shifted 

37 04C7 

OD 

00 


DB 

CR, NULL 



38 

39 04C9 

DC 



DB 

KB-DASH 4- KB-SHFT 

. 

Keypad dash key shifted 

40' 04CA 

41 

2D 

00 


DB 

NULL 



42 04CC 

DD 



DB 

KB-COMMA 4- KB_SHFT 

; 

Keypad comma key shifted 

43 04CD 

2C 

00 


DB 

, NULL 



44 








45 

001C 


KBPDTL 

EQU 

<*-KBPDT>/3 

; 

Table lensth 
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1 




;; 

KBFNT 

- keyboard function 

tabl e 




2 

3 




7 

7 

*KBFNT* contains the ASCII 

values 

to be transmitted by the 

4 

5 




7 

7 

terminal when received from the keyboard. 



6 




7 

Table 

entries are: Keyboard data 

word followed b-. 

• the 

7 





ASCII 

character to be transmitted 

if in ANS 

:l mode 

fo 11 owed 

8 

9 




« 

7 

by the 

ASCII character to 

be transmitted in 

i any other mode. 

10 











11 


04CF 


KBFNT 

EQU 

$ 





12 

13 

04CF 

80 



DB 

KB-F1 

; 

Function 

key #1 


14 

15 

04D0 

53 

53 


DB 

'S', 'S' 

? 

ESC 0 S, 

ESC S 


16 

04D2 

"8i. 



DB 

KB_Fi 

; 

Function 

key #2 


17 

04D3 

54 

54 


DB 

'T'., 'T' 

; 

ESC 0 T, 

ESC T 


18 

19 

04D5 

82 



DB 

KB-.F3 

. 

Function 

key #3 


20 

21 

04D6 

55 

55 


DB 

•-1J', ' U ' 

7 

ESC 0 U, 

ESC U 


22 

04D8 

83 



DB 

KB_F4 

7 

F u n c t i o n 

key #4 


23 

04D9 

56 

56 


DB 

'V', 'V' 

; 

ESC 0 V, 

ESC V 


24 











25 

04DB 

84 



DB 

KB-F5 

; 

Function 

key #5 


26 

27 

04DC 

57 

57 


DB 

'W', 'W-' 


ESC 0 W, 

ESC W 


28 

04DE 

85 



DB 

KB_F 6 

; 

Function 

key #6 

(blue) 

29 

04DF 

50 

50 


DB 

'P', 'P' 

; 

ESC 0 P, 

ESC P 


30 











31 

04E1 

86 



DB 

KB-F7 

; 

Function 

key #7 

(red) 

32 

33 

04E2 

51 

51 


DB 

'Q', 'Q' 

7 

ESC 0 Q, 

ESC Q 


34 

04E4 

87 



DB 

KB-FS 

; 

F u n c t i o n 

key m 

(srav) 

35 

04E5 

52 

52 


DB 

'R', 'R' 

; 

ESC 0 R, 

ESC R 


36 











37 

04E7 

88 



DB 

KB_F9 

? 

Function 

key #9 


38 

39 

04E8 

’''58. 

C9 


DB 

•'X', ('I'+80H> 

5 

ESC 0 X, 

ESC 0 

i 

40 


0009 


KBFNTL 

EQU 

($-KBFNT)/3 

; 

Table length 
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1 





5 7 

BLINAD 

- build line address 


2 

3 





7 

*BLINAD# calculates character memory addresses using -XPOS- 

4 

5 





, 

and -YPOS- and places the result 

into -LINADH/L-. 

6 

7 





? 

ENTRY 

.. none. 


8 

9 





? 

EXIT 

none 


10 





; 




11 





; 

USES 

A, PTR1 


12 

13 

14 

04EA 

CO 

FO 


BLINAD: 

PUSH 

B ? 

Save register 

15 

04EC 

74 

47 



MOV 

A, #LORDER ; 

Get base of table 

16 

04EE 

25 

12 



ADD 

A, YPOS ? 

Add in offset 

17 

04F0 

F8 




MOV 

PTR1, A 5 

Place into pointer 

18 

04 FI 

E6 




MOV 

A? @PTR1 ; 

Fetch pointer 

19 

04F2 

75 

FO 

50 


MOV 

Bi #NUMCHARS 5 

. Set. up. .fpx, .m.u 11 ip 1 y 

20 

04F5 

A4 




MUL 

AB ? 

Do it 

21 

04F6 

25 

11 



ADD 

A, XPOS ? 

Add in XPOS offset 

22 

04F8 

F5 

14 



MOV 

LINADL, A 

Save low order byte 

23 

04FA 

E5 

FO 



MOV 

. A.,.. fi.5 

Get.high bvte 

24 

04 FC 

34 

50 



ADDC 

A, #HIOH (CHARMEM) ? 

Add carry and offset 

25 

04FE 

F5 

13 



MOV 

LINADH» A ; 

Save high order bvte 

26 

0500 

DO 

FO 



POP 

B ? 

Restore 

27 

0502 

22 




RET 
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1 




7 7 

CLA - 

calculate line address 


2 

3 




7 

• 

7 

*CLA* 

inputs line coordinates and 

calculates the current 

4 

5 




7 

? 

address of thaf coordinate to character memory. 

6 

7 




? 

7 

ENTRY 

(A) * X-position 


8 

9 




7 

a 


<B) = Y-pos ition 


10 

11 





EXIT 

(DPTR) = current address 


12 

13 




• 

7 

USES 

A, B, DPTR* TEMP, PTR1 


14 

15 0503 

FD 



CL A: 

MOV 

TEMP, A ? 

Save -XPOS- 

16 0504 

74 

47 



MOV 

A, ttLORDER 

Get base of table 

17 0506 

..25.... 

FO 



ADD 

A, B 

Add in -YPOS- offset 

IS 0508 

F 8 




MOV 

PTR1, A ? 

Move into pointer 

19 0509 

E 6 




MOV 

A, ePTRl 

Get value from table 

20 050A 

75 

FO 

50 


MOV 

B, #NUMCHARS ? 

Set up for multiply 

21 050D 

A4 




MUL 

AB ; 

Do it ... 

22 050E 

2D 




ADD 

A, TEMP ? 

Add in -XPOS- offset 

.23.050F .. 

.F5 

.... 82. 



MOV 

...DPL,..A..5. 

. Save. .1 p.4J. . 

24 0511 

E5 

FO 



MOV 

A, B ; 

Get high byte *■ 

25 0513 

.. .34. 

.50 



ADDC 

A, #HIGH (CHARMEM) 5 

.Add .merrior y. offset and carry.. 

26 0515 

F5 

83 



MOV 

DPH, A 

Save high bvte 

. 27. 0517... 

..22. 




RET 
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1 





; ; 

PRLF - 

perform a reverse line 

feed 

.? 





. 

*PRLF* 

moves the cursor up one line in the video memory. 

4 





; 

If the 

cursor was a 1 read y o n 

the top line of the display. 

5 





; 

the dis p 1 av is scrolled down 

and the new line is filled 

6 

7 





? 

with s 

paces. 


8 

9 





. 

ENTRY 

none 


10 









11 





; 

EXIT 

none 


12 

13 





; 

USES 

al 1 


14 









15 









16 

0518 

E5 

12 


PRLF5 

NOV 

A, YPOS 

? Get Y-Position 

17 

051A 

B5 

17 

2B 


CJNE 

At TSCROLL, RL1 

" IF top of scroll region THEN 

18 

05 ID 

85 

18 

FO 


NOV 

B, BFIX 

; clear bottom line 

19 

0520 

15 

FO 



DEC 

B 

? of the scrolling region 

20 

0522 

12 

0B96 



LCALL 

CLRLINE 


21 

0525 

74 

47 



NOV 

A, #LORDER 

" Get top of table 

22 

0527 

25 

18 



ADD 

A, BFI X 

? Add in offset 

23 

0529 

14 




DEC 

A 


24 

052A 

F 8 




NOV 

PTR1, A 


25 

052B 

F9 




NOV 

PTR2 7 A 


26 

052C 

19 




DEC 

PTR2 


27 

0520 

86 

05 



MOV 

TEMPA, ©PTRl 

, Save bottom to put on top 

28 

‘ 052F 

E5 

18 



NOV 

At BFIX 


29 

0531 

95 

17 



SUBB 

At TSCROLL 


30 

0533"’ 

14 




DEC 

A 

, Calc # times through loop 

31 

0534 

FC 




MOV 

WORK, A 


32 

'0535'" 

02 

AF 



CLR 

EA 

? Disable for flicker 

33 

0537 

E7 



RLLS 

MOV 

A, SPTR2 

? REPEAT 

34 

’0538'" 

"F6 "" 




.MOV "" 

@PT'Ri, A 

; exchange values 

35 

0539 

18 




DEC 

PTR1 


36 053A 

”19' 




DEC 

PTR2 

? bump down 

37 

053B 

DC 

FA 



DJNZ 

WORK, RLL 

? UNTIL work * 0 

38 









39 

0530 

A6 

05 



MOV 

©PTR1, TEMPA 

? Put last value in 

40 

053F 

02 

AF 



SETB 

EA 

? Enable interrupts again 

41 

0541 

E5 

12 



MOV 

A, YPOS 

, Keep same position 

42 

0543 

F5 

12 


RLRs 

MOV 

YPOS, A 


43 

0545 

91 

EA 



ACALL 

BLINAD 

" Build line address 

44 

0547 

22 




RET 


" Return 

45 

0548 

B4 

00 

01 

RLls 

CJNE 

A, #0, RL1A 

, IF top of screen THEN 

46 

054B 

22 




RET 


; return 

47 

054C 

14 



RL1A! 

DEC 

A 

? ELSE bump up 

48 

0540 

80 

.F4. 



SJMP 

RLR 

“ and return 
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1 





. . 

PCRLF - 

perform carriage return and/or line feed 

2 

8 





. 

*PCRLF# 

performs a carriage return and then performs 

4 

5 





. 

a line 

feed if the auto line feed function is selected. 

6 

7 





. 

ENTRY 

none 

8 

9 





. 

EXIT 

none 

10 

11 





5 

USES 

A? B, DPTR, TEMP, PTR1 

12 

13 

14 

15 

054F 

0551 

B1 

20 

5C 

2D 

OD 

PCRLF: 

ACALL 

JB 

PCR “ Perform carriage return 

AUTOLF, PLF ? IF auto LF THEN do *PLF# 

16 

17 

0554 

22 




RET 

• ELSE return 

18 

19 

20 

.2.1. 





7 7 

.PLF.CR . r. 

. p.<?r.f arm.. Lieu?. .f .and/or.. r.arxd.ap.a. .return. 

22 

23 





| 

. *PL.FCR* 

. p.e r.f or: m.s . a. . c.arr i a b e . ret ur n. p r i o r-.. t.Q . per.f o r ml D.s . a. 


24 ? line feed if the auto carriage return function is selected, 

25 ! 


26 


.27. 


ENTRY 

none 

28 

7 



29 

7 

EXIT 

none 

30 

? 



. 3X . 

. . 7 . . 

. U.SE8 .... 

..&^.b*..pf:tr>.. TEMP.,.. PTR1. 


34 0555 

30 

2C 

09 

PLFCRs 

■JNB 

AUTOCR, PLF 

* IF no auto CR THEN do #PLF* 

35 0558 

.. .B.l. 

5C 



ACALL 

PCR 

’ ELSE do carriage return 

36 055A 

80 ' 

05 



SUMP 

PLF 

? line feed and return 
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1 


7 7 

PCR - perform carriage 

return 


3 


| 

•*PCR* moves the cursor 

to the 

beginning of the current line. 

4 


; 





5 


; 





6 


? 

ENTRY 

none 



7 


; 





8 


; 

EXIT 

none 



9 


; 





10 



USES 

A 



11 







12 







13 055C 

75 

11 00 PCRs 

MOV 

XPOS, #0 


? Return to beginning of line 

14 055F 

'' 81 

EA 

AJMP 

BLINAD 


? Build line address and return 
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1 





? 7 

PLF - 

perform line feed 


2 

3 





? 

-*PLF* 

moves the cursor down one 

line in the dis p1 av memorv. 

4 





; 

C u r s o r 

never moves out of the top fixed region. The display 

5 






is scrolled up one line if cursor is Just above the bottom 

6 

7 





\ 

fixed 

region. The cursor never 

moves into the 25th line. 

9 





. 

ENTRY 

none 


10 





; 




11 





; 

EXIT 

none 


12 

13 





; 

USES 

al 1 


14 









15 









i'6 

0561 


12 


PLFs 

MOV 

A, YPOS 

? Get Y-posi-irion 

17 

0563 

B4 

18 

01 


CJNE 

A, #MAXLINE, PLF1 

? IF on 25th line THEN 

18 

0566 

22 




RET 


“ return 

19 

0567 

04 



PLFls 

INC 

A 

• ELSE bump value 

20 

0568 

B5 

18 

02 


CJNE 

A? BFIX, PLF2 

? IF bottom scroll region THEN 

21 

056B 

80 

04 



SJMP 

PLFS 

? scroll as usual 

.22 

056ti 

B4 

18 

24 

PLF2: 

CJNE 

A? ttMAXLINE, PLFRET 

; IF not 24th line THEN bump 

23 

0570 

22 




RET 


? ELSE return 

24 

0571 

85 

17 

FO 

PLF3: 

MOV 

B, T SCROLL 

; Set up to clear 

25 

0574 

12 

0B96 



LCALL 

CLRLINE 

, Top line of scroll region 

26 

0577 

74 

47 



MOV 

A, #LORDER 

? Calculate pointers needed 

27 

0579 

25 

17 



ADD 

A, TSCROLL 

? For adjusting -LORDER- 

28 

057B 

F8 




MOV 

PTR1, A 


29 

057C 

F9 




MOV 

PTR2, A 


30 

057D 

09 




INC 

PTR2 


31 

057E 

86 

05 



MOV 

TEMPA, ©PTRl 

, Save top value for later 

32 

0580 

E5 

18 



MOV 

A, BFIX 


33 

0582 

95 

17 



SUBB 

A» TSCROLL 

? Calc number of times 

34 

0584 

14 




DEC 

A 

‘ To go through loop 

35 

0585 

FC 




MOV 

WORK, A 


36 

0586 

C2 

AF 



CLR 

EA 

! Stops anv b1inkins 

37 









38 

0588 

E7 



PLFLPs 

MOV 

A, ©PTR2 

? REPEAT 

39 

0589 

F6 




MOV 

©PTRl, A 

; switch entries 

40 

OSSA 

08 




INC 

PTR1 


41 

058B 

09 




INC 

PTR2 

; bump pointers 

42 

43 

058C 

DC 

FA 



DJNZ 

WORK, PLFLP 

? UNTIL work = 0 

44 

058E 

A 6 

05 



MOV 

@PTR1, TEMPA 

“ Place last value 

45 

0590 

D2 

AF 



SETS 

EA 

? Enable interrupts 

46 

0592 

E5 

12 



MOV 

A, YPOS 

? Keep same position 

47 

0594 

F5 

12 


PLFRET: 

MOV 

YPOS, A 

? Updata -YPOS- 

48 

0596 

81 

EA 



AJMP 

BLINAD 

" Build line address and return 
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1 



; 5 

CLRTABS 

- clear all tabs 


? 



« 

*CLRTAB- 

S# clears all tab 

.sett ins <=,.. 

4 



. 




6 

7 



? 

ENTRY 

none 


9 



. 

EXIT 

none 


10 

11 



; 

USES 

A, F‘TR.1» INDX1 


12 

13 

0598 

78 29 

CLRTABS: 

MOV 

F’TRl ? #TABTAB 

“ Init po inter to tab tab 1 e 

14 

15 

059A 

059B 

E4 

7 A OA 


CLR 

MOV 

A 

INDX1 7 #10 

" In it value to place in table 
? Ten bytes in the tab table- 

16 

17 

059D 

F 6 

CLRTBs 

MOV 

@PTR1? A 

? REPEAT zero byte 

18 
19 

059E 
059F 

08 

DA FC 


INC 

DJNZ 

PTR1 

INDX1 ■> CLRTB 

’ bump pointer 

? UNTIL index = 0 

20 

05 A1 

22 


RET 
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1 





; ; 

SETTAB 

- change tab setting 


2 

3 





; 

#SETTAB* sets or clears a tab position depending on the 

4 

CSJ 





; 

values 

passed to it. 


6 

7 





; 

ENTRY 

<A> as tab position from 0..79 

8 

9 





7 

7 


"FO" ~ value to place into tab position 

10 





; 

EXIT 

none 


11 





; 




12 





; 

USES 

A, B, PTR1, WORK, INDX1 


13 









14 









15 

05A2 

F5 

FO 


SETTAB: 

MOV 

B, A 

Save position to set/clear 

16 

05A4 

54 

F8 



ANL 

A, #111110008 

Make it a multiple of 8 

17 

05A6 

FC 




MOV 

WORK, A 

Save as a start for counting 

18 

05A7 

03 




RR 

A 

Divide bv 8 

19 

05A8 

03 




RR 

A 


20 

05A9 

03 




RR 

A 


21 

05AA 

24 

29 . 



ADD 

A, #TABTAB 

Add offset to tab table 

22 

05AC 

F8 




MOV 

PTR1, A 

Init pointer 

.23 

05AD .. 

...E6. 




MOV 

A, @PTR1 

Get tab bvte 

24 

05 A E 

7A 

08 



MOV 

INDX1, #8 

Loop through all 8 bits 

25 

05B0 

C5 

FO 


STB is 

XCH 

A, B 

Get count and save bvte 

26 

05B2 

B5” 

04 

04 


CJNE 

A, WORKA, STB2 

If position if found 

27 

05B5 

A2 

D5 



MOV 

C, FO 

; Get value desired 

28 

05B7 

92 

F7 



MOV 

B. 7, C 

! Place into tab bvte 

29 

05B9 . 

C5 

FO 


STB2s 

XCH 

A, B 

i Change back 

30 

05BB 

23 




RL 

A 

! Rotate to next tab position 

.31. 

05BC 

OC 




INC 

WORK 

! Bump count 

32 

05BD 

DA 

FI 



DJNZ 

INDX1, STB1 

! Until all 8 bits done 

.3.3. 

.Q5BF... 

F6 




MOV 

©PTR1, A 

; Replace the tab bvte 

34 

05C0 

22 




RET 
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1 




TAB ~ 

horizontal tab routino 


2 



. 

*TAB# 

sots current position and then does a search for the 

4 



« 

next tab stop. It none is found 

column position. 

then the default is the last 

6 ; 

7 5 

9 



; 

ENTRY 

none 


.to 

11 



; 

EXIT 

n o n e 


12 

13 



" 

USES 

A, B, PTR1, WORK, TEMP, INDX1/2 

14 

15 05C1 

E5 

11 

TABS 

MOV 

A, XF'OS 

f G'e t c u r r e n t p o s i t i o n 

16 0*5 C 3 

17 05C4 

'"Fb 

54 

F8 


MOV 

ANL 

TEMP, A 

A, #111110008 

’ Save p o s i "t i o n t o tab f r o rn 
f Make a multiple of 8 

iS 05C6 

19 05C7 

FC 

03 



MOV 

RR 

WORK, A 

A 

; Save as a start for count 
' Divide bv 8 

20 05C8 

21 05C9 

03 

03 



RR 

RR 

A 

A 


22 05CA 

23 05CC 

F5 

24 

Fb 

29 


MOV 

ADD 

B, A ? 

A, #TABTAB ! 

1 Save temporary byte offset 
[ Add offset to tab table 

24 05CE 

25 05CF 

''' F8 
74 

OA 


MOV 

MOV 

F’TR’l, A i 

A, #10 

! Initialize pointer 

26 oSbi 

27 OSD3 

95 

FA 

.FO 


SUBB 

MOV 

"AT 6. 5 

INDX1, A ! 

! Calc # times needed in loop 
i Place into index 

28 05D4 

29 

C2 

D5 


cLr 

FO ? 

1 FO ~ hunting for current poD 

30 0SCI6 

31 05D7 

E 6 
30 

D5 

TBL1 : 

02 

MOV 

JNB 

A, dPTRi S 

FO, TB6 ? 

REPEAT get tab byte " ' "" """ " 

IF not 1ooking for pos ition 

32 05DA 

33 05DC 

''' 60 
7B 

3.7 

08 

TB6s 

' JZ '' 
MOV 

' t6i ; 

INDX2, #8 5 

quick check to exit 

1ook through the 8 bits 

.34. 

35 05DE 

20 

D5 

09 TBL2s 

JB 

FO, TBS’ 3 

.REPEAT. 

IF 1ooking for current 

.36' '0SET ’'' 

37 05E2 

'' CD' 
B5 

04 

02 

.. X'CH " " 

CJNE 

'"AT TEMP'. i 

A, WORKA, TB4 5 

get' original position 

IF equal to original 

38 05E5 

39 05E7 

'' m 

CD 

.D5' 

TB4 s 

.sere''' 

XCH 

"Fb . s 

A, TEMP 3 

flag if 

get current position 

40 05E8 

41 05EA 

'80 

20 

.. 03 ' 

E7 

OF TBSs 

SUMP 

■JB 

TB2 ' ' 3 

ACC.7, TBR 3 

E LSE 1ookins for ta b 

IF tab set THEN exit 

42 b'SEB 

43 05EE 

OC 


TB2 s 

RL 

INC 

A' 3 

WORK 3 

rotate to next 
bump count 

. 4*4 05EF ’ 

45 

"*d£ 

. E'D " 


' D.JN2' ' 

' I'NDX2, TBL2 3 

UNTIL bit count = 0 

* '46 OSF'i 

47 05F3 

'"80 

74 

. 0*4 ' 

08 

TBls 

SJ'MF* 

MOV 

"TBS . 3 

A, #8 

i IF need to bump by eight 

.... 48'05FS'" 

49 05F6 

"*2'C 

FC 



ADD 

MOV 

A, WORK 3 

WORK, A 

' bump count by eight 

. . SO ' b'SF'7 

51 05F8 

'"08 

DA 

DC 

" TBS s’ ' 

INC 

DJNZ 

PTR1 3 

INDX1, TBL1 3 

' bump pointer to next by'fe 

UNTIL table is done 

. 52 " " 

53 05FA 

7C 

4F 


MOV 

WORK, ttMAXCHAR 3 

Default value if not found 

. 54" 

55 05FC 

8C 

11 

TBRs 

MOV 

XF’OS, WORK 3 

Set next tab position 

. 56 05FE 

57 0600 

'' *91 * 
21 

EA 

A9 


acalL 

JMP 

BLINAD 3 

SPF 3 

i Buil«i new address 

Skip any protected fields 
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1 






BTAB - 

horizontal back 

tab routine 

3 





. 

*BTAB* 

sets current position and 

then does a search for the 

4 





; 

previous tab stop. If 

none is found then the default is the 

5 





; 

first 

co 1 urrin pos i t i on. 



6 

7 





? 





8 

9 





. 

ENTRY 

none 



lb 





; 

EXIT 

none 



11 





; 





12 

13 





? 

USES 

A, B, PTR1» WORK, TEMP, INDX1/2 

14 










15 

0602 

E5 

11 


BTAB: 

MOV 

A, XPOS 

? 

Position to compare with 

16 

0604 

60' 

19 



JZ 

BTR 

; 

IF first column THEN exit 

17 

0606 

14 




DEC 

A 

; 

Decrement for compare 

is 

0607 

75 

11 

00 


MOV 

XPOS, #0 

; 

Start looking from first pos 

19 










20 

060A 

85 

11 

FO 

BTL: 

MOV 

B, XPOS 

; 

REPEAT save previous position 

21 

060D 

CO 

EO 



PUSH 

ACC 

; 

save compare value 

22 

060F 

CO 

FO 



PUSH 

B 

m 

save previous position 

23 

0611 

B1 

Cl 



ACALL 

TAB 

? 

tab to next stop 

24 

0613 

DO 

FO 



POP 

B 

? 

restore previous position 

25 

0615 

DO 

EO 



POP 

ACC 

; 

restore compare value 

26 

0617 

B5 

11 

00 


C.JNE 

A, XPOS, BTL1 



27 

061A 

50 

EE 


BTL15 

•JNC 

BTL 

; 

UNTIL next >= current pos 

28 

29 

061C 

85 

FO 

11 


MOV 

XPOS, B 

m 

7 

Get previous position 

30 

06 IF 

81 

EA 


BTR: 

•JMP 

BLINAD 

; 

Calc new address and return 
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1 




?; 

HTS - 

horizontal tab sot 


2 




; 




3 





.;*HTS* 

sots tab at current 

position. 

4 








5 




« 




6 




; 

ENTRY 

no no 


7 




5 




8 

9 




; 

EXIT 

no no 


10 





USES 

al 1 


11 








12 








13 

0621 

D2 

D5 

HTSs 

SETB 

FO 

? Sot tab 

14 

0623 

E5 

11 

HTSl: 

MOV 

A, XPOS 

* Got position 

15 

0625 

A1 

A 2 


AJMP 

SETTAB 

5 Execute and roturn 


16 

17 


18 

19 


20 

21 




7 7 

5 

HTC - 

Horizontal tab clear 

22 




jj 

*HTC* 

Clears tab at current position. 

24 

25 




m 

7 

7 

ENTRY 

no no 

26 

27 




7 

• 

7 

EXIT 

no no 

28 

29 




m 

7 

USES 

al 1 

30 

31 

32 

33 

0627 

0629 

C2 

80 

D5 

F8 

HTCS 

CLR 

SUMP 

FO ? Clear tab 

HTSl • Execute and return 

34 

35 

36 

37 

38 

39 




? ? 

ATBC - 

ANSI tabulation clear 

40 

41 




7 

* 

*ATBC* 

performs the specified tab controls. 

42 

43 




7 

* 

ENTRY 

none 

44 

45 




7 

7 

EXIT 

none 

46 

47 




7 

7 

USES 

al 1 


48 

49 


50 062B 

12 

09D1 


ATBC: 

LCALL 

GNP 

“ Got parameter 

51 062E 

60 

F7 



JZ 

HTC 

? IF 0 THEN hor tab 

52 0630 

B4 

03 

02 


CJNE 

A? #3, AT2 

? ELSE IF 3 THEN 

53. 0633 

Al 

98 



AJMP 

CLRTABS 

“ clear all tabs 

" 54’ 0635 

22 



AT2: 

RET 


“ ELSE return 
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•*#* 1—29 COMPUTER TERMINAL 

FIRMWARE VER 

SION 1.03 






1 





;; 

HTAB - 

Hazel tine 

tab routine 



•Z\ 





. 

*HTAB* 

performs 

the Haze 11ine 

tab 

f u n c t i o n. 

4 





; 






6 

7 





; 

ENTRY 

none 




8 

9 






EXlf 

none 




10 

11 





" 

USES 

al 1 




12 











13 

0636 

C2 

D5 


HTAB: 

CLR 

FO 


; 

Flag « FALSE 

14 

0638 

E5 

li 



MOV 

A, XPOS 




15 

063A 

25 

12 



ADD 

A, YF'OS 


; 

Check for home position 

16 











17 

063C 

70 

02 



.JNZ 

HTO 


; 

IF h ome position THEN 

18 

063E 

D 2 

D5 



SETS 

FO 


; 

flag = TRUE 

19 











20 

0640 

CO 

11 


HTO: 

PUSH 

XPOS 


; 

Save current position 

21 

0642 

CO 

12 



PUSH 

YF'OS 




22 

0644 

75 

o t p 

80 


MOV 

F'FIELD, 

#1OOOOOOOB 

; 

Make normal protected 

23 

0647 

31 

A 9 



ACALL 

SPF 


; 

Skip over forearound 

24 

0649 

E 5 

11 



MOV 

A 7 XPOS 




25 

064B 

25 

12 



ADD 

A, YPOS 


s 

Check for home po sition 

26 











27 

064D 

70 

03 



JNZ 

HTl 


? 

IF home position AND 

28 

064F 

30 

D5 

09 


JNB 

FO, HT2 


; 

IF that is old pos THEN 

29 

0652 

75 

3F 

08 

HTl: 

MOV 

F'FIELD, 

#000010006 

; 

make half protected 

30 

0655 

31 

A 9 



ACALL 

SPF 


; 

skip over background 

31 

0657 

E5 

11 



MOV 

A, XPOS 




32 

0659 

25 

12 



ADD 

A, YPOS 


; 

c h e c k f o r h o me p o s i t i o n 

33 











34 

35 

065B 

75 

3F 

00 

HT2: 

MOV 

F'FIELD, 

#0 

; 

Clear protected fields 

36 

065E 

60 

05 



Jz 

HT3 


? 

IF position not home fHEN 

37 

0660 

DO 

EO 



POP 

ACC 


; 

remove oId po sition 

38 

0662 

DO 

EO 



POP 

ACC 



a nd ret ur n 

39 

0664 

22 




RET 





40 











41 

0665 

DO 

12 


HT3S 

POP 

YPOS 



ELSE 

42 

0667 

DO 

11 



POP 

XPOS 



use previous position 

43 

0669 

81 

EA 



AJMP 

BLINAD 


; 

update and return 
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1 





? ? 

RING - 

rins be 11 


3 






*RING* 

rings the bell on 

the keyboard. It the input FIFO 

4 






has a bell as the next character it is dropped. This is 

5 





; 

so that 

the terminal can 

keep up with multiple bells and 

6 

7 






communi 

cate to the keyboard. 

S 









9 





; 

ENTRY 

none 


10 





* 




11 






EXIT 

none 


12 





; 




13 





; 

USES 

none 


14 









15 









16 

066B 

74 

81 


RING: 

MOV 

A? #KBC_BELL 


17 

066D 

51 

6D 



ACALL 

PCKB 

* Output command to ring bell 

18 

19 

066F 

51 

IB 


RGL: 

ACALL 

LCIF 

? REPEAT get next input char 

20 

0671 

40 

07 



JC 

RGR 

" IF no character THEN exit 

21 

0673 

B4 

07 . 

04 


CJNE 

A, #BELL, RGR 

? IF character = bell THEN 

22 

0676 

31 

F6 



ACALL 

FCIF 

- fetch character and dro p 

23 

0678 .. 

80 

F5 



SUMP 

RGL 

5 UNTIL char <> bell 

24 

067A 

22 



RGR: 

RET 
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1 





; ? 

ESCCODE 

- escape code received 

3 





» 

7 

7 

*ESCCODE* determines which mode the terminal is in and 

4 

5 





7 

9 

7 

sets th 

e dispatch address to the proper routine. 

6 

7 





9 

7 

* 

7 

ENTRY 

none 

8 

9 





7 

7 

EXIT 

none 

10 

11 





7 

7 

USES 

none 

12 

13 

14 

15 

067B 

12 

102D 


ESCCODE: 

LCALL 

R2_ESC “ Escape hook 

16 

17 

067E 

0681 

75 

75 

16 

15 

97 

06 


MOV 

MOV 

DSADRL, #LOW (ANSIESC) ? ANSI dispatch address 

DSADRH 7 #HIGH (ANSIESC) 

18 

19 






IFC 

NE, HIGH(ANSIESC)-HIGH(Z DSESC) 

20 

21 






ERROR 

ENDC 

? ■' ZDSESC " IS NOT THE SAME AS ' AIMSIESC ' 

22 

23 






IFC 

ERROR 

NE,HIGH(ANSIESC >-HIGH(ADM3ESC) 

? •"ADM3ESC•' IS NOT THE SAME AS 'ANSIESC' 

24 

25 






ENDC 

IFC 

NE,HIGH(ANSIESC)~HIGH(HA Z ESC) 

26 

.27. 






ERROR 

ENDC 

?'HAZESC' IS NOT THE SAME AS 'ANSIESC' 

28 

29 

0684 

20 

40 

OF 


■JB 

ANSI, ESCRET ; IF not ANSI mode THEN 

30 

31 

0687 

75 

16 

B8 


MOV 

DSADRL, #LOW <ZDSESC) ? ZDS dispatch address 

32 

33 

068A 

068D 

20 

75 

41 

16 

09 

A7 


JB 

MOV 

ZDS, ESCRET ; IF not ZDS mode THEN 

DSADRL, #LOW <ADM3ESC) ? ADM 3 dispatch address 

34 

35 

0690 

20 

42 

03 


JB 

ADM3, ESCRET ? IF not ADM 3 mode THEN 

36 

.37. 

0693 

0696 

"75. 

22 

16 

BO 

ESCRET: 

MOV 

RET 

DSADRL, #LOW (HAZESC) ! Hazel tine dispatch address 

5 return 
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. .1 . 

2 

.3. 




? 

.ANSI ESC. 

.*ANSIESC 

.t. .ANSI. e.s eap.e. .par; ?er. 

.par; s.e 5 .. the.. fi r.s t. .charas 
*NSI mode. 

tar. .f o.l .l.owi rxg. an. .ESC. .when... 

4 

.5.. 




.?. 

in the {■ 


6 

.7.. 




7 

.. .ENTRY.... 

. (A L =. .c ha ra c.t ex :. .t o.. pa cs.e.. 


. 9. . 




. 

.EXIT. 

.Q&Qft. 


10 








. 11 . 

i •“> 




* 

.......USES. 

a.U. 


.13. 








14 0697 

C2 

18 


ANSIESC: 

CLR 

PSDF 

Flap first time through *PSD* 

.15.. 0.69.9... 

.. .C 2 ._ 

.19. 



.......CLP. 

.ONPF...?. 

. F.l ag. .first. .time.. thro yah. .f.ONR#. 

16 069B 

75 

FO 

OC 


MOV 

B, #ANSITL ? 

ANSI mode table parameters 

.17..P.69.E... 

...9.0..... 

.....0728... 



MOV. .. . 

w.ifu.mmii . 


18 








.1.9.Q6A1... 

... 1 . 2 .... 

.... .082P... 


.... AESCi?. 

.LCALL.... 

.SETNORM.?. 

. Rea tn r.e. d i s. pa t & b. a d.d r.e s.s... 

20 06A4 

02 

0836 



LUMP 

STUMP ; 

.Jump to anv routine 

. 21 . 








22 








.23. 








24 








.25.. 





.AJ0M.3ESC. 

.t. .ADM. .3. .escape.. p.ar.se.r:. 


26 




* 

7 




.27. 




• 

.*APM3ESC*. .i?acs.es.. the.. character. .c.e.c.e.i ved. .t.o. .<Jp.. .t be.. pro.pe.r;..... 

28 




m 

7 

routine) 

if anV) for ADM 3 mode. 


.29.. 




. 7. 




30 




7 




.31. 




• 

.ENTRY.... 

. (A). *. .f Ip s t. .c ha ra c.t e r- a f t:e r- ESQ. s.e <=».u an c.e. .. 

32 




? 




.33.. 




; 

.EXIT. 

none 


34 




; 




.35. 




; 

USES .... 

all. 


36 








.37. 








38 06A7 

12 

082F 


ADM3ESC: 

LCALL 

SETNORM ; 

Restore dispatch address 

..39. 








40 06AA 

B4 

3D 

31 


CJNE 

A, #••=•••, ZE2 

IF not •- = ••• THEN return 

41 06 AD 

...02 . 

0CD6 



LUMP 

CUA ; 

. else. .same.. as. .gu.rs.or. .addr.es.s. 
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1 




7 * 

HAZESC 

- Hazel tine 1500 escape 

(tilde) parser 

2 

3 





*HAZESC* parses the character 

received to do the proper 

4 

5 





routine 

* if anv» for Hazel tine 

1500 mode. 

6 

7 





ENTRY 

(A) = first character 

after ESC (tilde) sequence 

8 

9 




l 

EXIT 

none 


10 

11 




? 

USES 

al 1 


12 

13 

14 

15 

06B0 

06B3 

75 

90 

FO 10 

0768 

HAZESCs 

MOV 

MOV 

B, #HAZTL 

DPTR* #HAZT 

? Hazel tine table parameters 

16 

06B6 

80 

E9 


SUMP 

AESC1 

■ Look through table 

































Z29R0M? MICROBENCH 8051 CROSS ASSEMBLER (VI>-218 24-FEB-83 15:30:06 PAGE 60 

.***.Zr29. .COMPUTER.TERM!NAL .FIRMWARE. VERSION. 1,0.3. .**.*... 


1 

; ; 

ZDSESC - 

ZDS escape 

sequence 

2 

7 




g 

7 

■*ZDSESC* 

parses the 

character received to do the proper ZDS 

4 

7 

routine 

if anv. 


F« 

7 




6 

m 

7 




7 

5 

ENTRY 

(A) * first 

character after ESC sequence 

8 

7 




9 

7 

EXIT 

none 


10 

• 

7 




11 

m 

7 

USES 

al 1 



12 

13 


14 

06B8 

12 

082F 


ZDSESC: 

LCALL 

SETNORM 

? 

Restore dispatch address 

15 










16 

06BB 

B4 

23 

03 


CJNE 

A, #'#', ZE1A 

? 

IF transmit page THEN 

17 

06BE 

02 

1036 



■JMP 

R2-TP 

7 

d o i t 

18 

06C1 

B4 

2D 

02 

ZE1 A: 

CJNE 

A, ZE1B 

m 

7 

iF back tab THEN 

19 

06C4 

Cl 

02 



AJMP 

BTAB 


do it 

20 

06C6 

B4 

2E 

03 

ZE1B: 

CJNE 

At #•••„'•, ZE1C 

7 

IF tab functions THEN 

21 

06C9 

02 

0ED3 



JMP 

ZTAB 


d o i t 

22 

23 

06CC 

C3 



ZE1C: 

CLR 

C 

; 

Set up to 

24 

06CD 

94 

3C 



SUBB 

At #-<•• 

* 

7 

Normalize into range 

25 

06CF 

40 

OD 



JC 

ZE2 

; 

IF out of ranse THEN return 

26 










27 

06D1 

23 




RL 

A 

7 

ELSE mult bv 2 

28 

06D2 

FD 




MOV 

TEMP, A 

7 

save value 

29 

06D3 

24 

OA 



ADD 

A, #10 

? 

add code offset to low 

30 

06 D 5 

83 




MOVC 

A, @A+PC 

*» 

7 

set low bvte 

31 

06D6 

CO 

EO 



PUSH 

ACC 

7 

put onto stack 

32 

06D8 

‘ ED*"' 




MOV 

A, TEMP 

at 

set value back 

33 

06D9 

24 

03 



ADD 

A, #3 

? 

add code offset to high 

34 

06DB 

"‘83. 




rtoVc 

“ m+Ft . 

• 

7 

set high bvte 

35 

06 DC 

CO 

EO 



PUSH 

ACC 

7 

put onto stack 

36 

06DE 

22 



ZE2: 

RET 


a 

7 

jump to address 

37 










38 






IFC 

NE,ZDST-¥ 



39 






ERROR 

5 TABLE *ZDST " MUST 

FOLLOW 


40 






ENDC 
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1 


?? ZDST - 

ZDS escape table 





? *ZDST* 

contains the 

second character 

in the ranee of 

4 


; al1 escape sequences 

the Z-29 will respond to. 

6 


? Table 

entries are* 

Address of routine which performs the 

7 


? requested operation 

in order of their ASCII sequence. 

8 

9 

10 06DF 

0B03 

ZDST: DW 

EAM 

? 

< 

enter ANSI mode 

11 06E1 

0B4E 

DW 

EKAM 

ft 

J 

= 

enter alt keypad mode 

12 06E3 

0B51 

DW 

XKAM 

; 

> 

exit alt keypad mode 

13 06E5 

0767 

DW 

UNDEF 

7 


undefined 

14 06E7 

0B54 

DW 

El CM 

; 

& 

enter insert char mode 

15 06E9 

0C8D 

DW 

CUP 

* 

A 

cursor up 

16 06EB 

OCAS 

DW 

CDN 

7 

B 

cursor down 

17 06ED 

0C64 

DW 

CRT 

5 

C 

cursor right 

18 06EF 

0C3D 

DW 

CLFT 

7 

D 

cursor left 

19 06F1 

OBAC 

DW 

CLRS 

; 

E 

clear entire display 

20 06F3 

0F39 

DW 

EGM 

? 

F 

enter graphic mode 

21 06F5 

0F3C 

DW 

XGM 

7 

G 

exit s raphic.mode 

22 06F7 

0C36 

DW 

SCH 

7 

H 

set cursor home 

23 06F9 

0518 

DW 

.. PRLF. 

7 

I 

reverse index 

24 06FB 

0C08 

DW 

EED 

* 

J 

erase cursor to EOS 

25 06FD 

OBEO 

DW 

EOL 

• 

K 

erase cursor to EOL 

26 06FF 

0D47 

DW 

PIL 

7 

L 

perform insert line 

27 0701 

0D88 

DW 

PDL 

5 

M 

perform delete line 

28 0703 

0DF4 

DW 

PDC 

; 

N 

delete char 

29 0705 

0B58 

DW 

XI CM 

; 

0 

exit insert char mode 

30 0707 

0767 

DW 

UNDEF 

? 

P 

undefined (blue) 

31 0709 

0767 

DW 

UNDEF 

- 

Q 

undefined (red) ... . . ... 

32 07OB 

0767 

DW 

UNDEF 

? 

R 

undefined (gray) 

33 070D 

0767 

DW 

UNDEF 

• 

S 

undefined (FI) . 

34 070F 

0767 

DW 

UNDEF 

; 

T 

undefined (F2) 

.35 .0711 ... 

.. .0.767.. 

.pw. 

.. .UNPEF. 

; 

U 

undefined (F:?). 

36 0713 

0767 

DW 

UNDEF 

5 

V 

undefined (F4) 

37 0715 

0767 

DW 

.. .UNDEF. 

? 

w 

undefined (F5) . 

38 0717 

0767 

DW 

UNDEF 

; 

X 

undefined 

..39.0.71.9... 

.. .0.QD6. 

.p.w. 

.. .QUA. 

.7. . 

.Y.. 

. VI52. .cur.s.or. .a.ddr.. .(.eacaml. 

40 07IB 

OEAB 

DW 

IDT 

; 

z 

VT52 identify 

..41. .0.718 ... 

.. .QB3P.. 

.PW. 

EHSM 

; 

c. 

.Enter, .hoi d . screen. .rTip.de. 

42 07IF 

0B43 

DW 

XHSM 

; 

\ 

Exit hold screen mode 

43 0721 

1039 

DW 

R2-T25L 

5 

3 

xmit 25th line . 

44 0723 

1033 

DW 

R2-TL 

? 


transmit line 

. . 45 0725 

.. .1030. 

DW 

R2-TC 

7 


.transmit.character. 

46 0727 

103C 

DW 

R2-PRNT 

ft 


print page 

47 0729 

0767 

DW 

UNDEF 

; 

.4.. 

undefined 

48 072B 

0BF1 

DW 

EBD 

; 

b 

erase display to cursor 

49 072D 

0767 

DW 

...UNDEF. 

. .7 . 

.Z. . 

. .un.de.fi.n^.d. 

50 072F 

0767 

DW 

UNDEF 


d 

undefined 

51 0731 

0767 

DW 

UNDEF 


e 

undefined 

52 0733 

0767 

DW 

UNDEF 

; 

f 

undefined 

53 0735 

0767 

.PM. 

...UNDEF. 

■ 

.?.. 

undefined . 

54 0737 

0767 

DW 

UNDEF 

; 

h 

undefined 

55 0739 

0EB3 

.PW.. 

.IPIT. 


.i.. 

. X d.e n.t i f. y. . t e r m i R4.1.. .t.Y p.e. 

56 073B 

0EE8 

DW 

SCP 

; 

J 

save cursor position 

57 073D 

0EF4 

DW 

USCP 

* 

k.. 

restore cursor position. 
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. X. 

0.72F . 

OBDB 


BW 

EEL 

? 1 

erase entire line 

2 

0741 

0767 


DW 

UNDEF 

? m 

undefined 

3 

0.74.3... 

.. .0.E83. 


DW 

CPR 

? n 

cursor position report 

4 

0745 

OBCB 


DW 

EBL 

; o 

erase line to cursor 

.5. 

0747 .. 

.. .0F3.3. 


DW 

ERVM 

' p 

enter reverse video mode 

6 

0749 

OF 36 


DW 

XRVM 

; a 

exit reverse video mode 

. 7 

0.74B.. 

.. .0E3P. 


DW 

ZDSSBR 

; r 

modif y baud rate <param) 

ft 

074D 

OF 08 


DW 

ZATR 

; s 

set video attributes 

9 

. 0.74E. . 

.. .03.48. 


DW 

EKSM 

; t 

enter keypad shifted mode 

10 

0751 

0B4B 


DW 

XKSM 

5 U 

e xit k e y pad shifted mode 

. XI. 

.0.753.. 

.. .0A.FD. 


DW 

WEOL 

“ V 

enter wrap a round mode 

12 

0755 

0B00 


DW 

DEOL 

; w 

exit wrap around mode 

. ia 

.0.75.7... 

...0.8E7. 


DW 

SMS 

; x 

set modes (param) 

14 

075 9 

092C 


DW 

RMS 

? Y 

reset modes (param) 

. IS. 

.0.753... 

.. .OAFA. 


DW 

RAMP 

? 2 

reset to power up 

16 

075D 

OF 83 


DW 

EKI 

; c 

enable k e y board 

.17. 

. 0.7 5E... 

.. .07.67.. 


DW 

UNDEF 

; j 

undefined 

IS 

0761 

0FB9 


DW 

DKI 

? } 

disable ke y b oa r d 

.19. 

.0.76.3... 

.. 0767.. 


DW 

UNDEF 

? ~ 

undefined 

20 

.2.1. 

0765 

0767 


DW 

UNDEF 

? DEL 

undefined 


25 


7 7 

UNDEF - 

undefined escape sequence 

26 

.27. 


u 

1 

? 

*UNDEF* 

is used in ZDS escape parsing for undefined entries 

28 ? 

_29...?. 

30 

.31. 

32 

.38.. 


7 

* 

7 

7 

ENTRY 

EXIT 

n o n e 

none 

34 

..35.. 


7 

USES 

none 

36 

37 0767 

22 

UNDEF: 

RET 

? Undefined ESC sequence 
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1 



? 7 


HAZT - 

Hazel tine 1500 escape (tilde) table 

O 



; 


*HAZT* 

contains 

the second character of the Hazel tine 

4 

cr f 



; 


escape 

(tilde) 

tab 1e. 

6 

7 



5 


Table 

escape 

entries are! The second character of the Hazel tine 
(tilde) sequence followed by the address of the routine 

9 



* 


wh ich 

performs 

the requested function. 

10 

11 


0768 

HAZT 


EQU 

* 


12 

13 

0768 

12 



DB 

12H 

? - DC2 

14 

15 

0769 

0C36 



DW 

SCH 

* Set cursor home 

i 6 
17 

076B 

076C 

ot 

0CSD 



DB 

DW 

OCH 

CUP 

. ~ pp 

? C u r s o r u p 

18 

19 

076E 

OB 



DB 

OBH 

? - VT 

20 

21 

076F 

OCA 8 



DW 

CDN 

■ Cursor down 

23 

0771 

0772 

1C 

OBAC 



DB 

DW 

ICH 

CLRS 

. „ pc; 

? Clear screen and home 

24 

25 

0774 

ID 



DB 

1DH 

; ~ GS 

26 

27 

0775 

0BC2 



DW 

CLFO 

• Clear forearound 

28 

29 

0777 

0778 

OF 

OBEO 



DB 

DW 

OFH 

EOL 

? ~ si 

? Erase to end of line 

30 

31 

077A 

18 



DB 

18H 

5 - CAN 

32 

077B 

0C08 



DW 

EED 

“ Erase to end of disp1av 

34 

35 

077D 
077E 

17 

OC19 



DB 

DW 

17H 

HEED 

? ~ ETB 

• Erase to eod (with bckarnd) 

36 

37 

0780 

15 



DB 

15H 

? « NAK 

39 

0781 

0FB9 



DW 

DKI 

" Disable keyboard input 

40 

41 

0783 

0784 

06 

0FB3 



DB 

DW 

06H 

EKI 

? ~ ACK 

E n a b 1 e k e y b o a r d i n p u t 

42 

43 

0786 

1A 



DB 

1 AH 

! ~ SUB 

44 

45 

0787 

0D47 



DW 

PIL 

? Perform insert line 

46 

47 

0789 
078A 

13 

0D88 



DB 

DW 

13H 

F’DL 

? ~ DCS 

« Perform delete line 

48 

49 

078C 

19 



DB 

19H 

; ~ em 

50 

51 

078D 

OF 2 A 



DW 

EHALF 

? Enter half intensity 

52 

078F 

0790 

IF 

OF 2 6 



DB 

DW 

1FH 

XATR 

; ~ US 

; Exit attributes 

54 

A700 1 1 riP 1 1 U ! ~ nr-1 <*"1 -:“r- I.r*:- 

56 

. 57. 

0793 

0CD6 



DW 

CUA 

“ Cursor address 
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1 0795 

05 


DB 

05H 

? ~ ENQ 

2 0796 

3 

0E83 


DW 

CPR 

• Cursor position report 

4 

0010 

HAZTL 

EQU 

<*-HAZT>/3 

? Table length 
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1 



?? ANSI! - 

ANSI escape table 


o 



? *ANSIT* 

contains the second 

character of the ANSI escape table 

4 

5 



? Table entries are: The sec 

ond character of the ANSI escape 

6 



? sequence 

-j followed bv the address of the routine which performs 

7 



* the requested function. 


o 

9 

10 


0798 

ANSIT EQU 

$ 


11 






12 

0798 

5B 

DB 

•-1' 

? ESC C 

13 

0799 

07BC 

DW 

ELB 

? Escape left bracket 

14 






15 

079B 

28 

DB 

- ( - 

; esc ( 

16 

079C 

0F3F 

DW 

CODES 

? GO designator 

17 






18 

079E 

29 

DB 

•• ) - 

? ESC ) 

19 

079F 

0F47 

DW 

SIDES 

* G1 designator 

20 






21 

07 A1 

37 

DB 


? ESC 7 

22 

07A2 

0 EE8 

DW 

S CP 

" Save curs 0 r p 0 siti 0 n 

23 






24 

07 A4 

38 

DB 

s 

? ESC 8 

25 

07A5 

0EF4 

DW 

USCP 

? Unsave cursor position 

26 






27 

07A7 

30 

DB 

••• - 

? ESC = 

28 

07A8 

0B4E 

DW 

EKAM 

? Enter keypad alternate mode 

29 






30 

07 A A 

3E 

DB 


? ESC > 

31 

07AB 

0B51 

DW 

XKAM 

? Exit keypad alternate mode 

.33. 

.Q7.AD... 

4D 

DB 

*' M '* 

? ESC M 

34 

07AE 

0518 

DW 

PRLF 

; Reverse index (rev line feed) 

85 






.36 

07B0 

63 

DB 

■ " c •'* 

? ESC c 

37 

07B1 

OAF 6 

DW 

ARAMP 

• ANSI reset to power up 

38 






39 

07 B 3 

44 

DB 

D 

? ESC D 

40 

07B4 

0561 

DW 

PLF 

• Perform 1ine feed 

41 






42 

07 B 6 

48 

DB 

-H- 

; ESC H 

43 

07B7 

0621 

DW ' 

NTS 

* Horizontal tab set 

44 






45 

07B9 

23 

DB 


.? ESC # 7 

46 

07BA 

OADF 

DW 

APRNT 

1 Print page 

47 






48 


oooc 

ANSITL EQU 

( ANSIT ) /3 

” Table length 
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1 





7 7 

ELB - 

escape left bracket 

2 






#ELB# 

is a continuation of the escape sequence processing 

4 

.5. 






for ANSI escape sequences. The final character of the 
sequence is decoded with or without a proceeding parameter 

6 

7 





_ 

string 

and control is passed on to the associated routine. 

8 

9 





7 

ENTRY 

none . . 

10 

11 





? 

• 

EXIT 

to requested routine 

12 

13 





7 

• 

USES 

al 1 

14 

15 

16 

17 

07 BC 

12 

082A 


ELBs 

LCALL 

SETDISP ? Set dispatch and return 

18 

19 

07BF 

07C2 

12 

50 

0971 

78 



LCALL 

•JNC 

PSD 5 Get parameter string 

STRET ? IF not done THEN return 

20 

.2.1. 

22 

23 

07C4 
.Q7C7... 
07CA 
.Q7CD... 

12 

.. 7.5. 

90 

.. .Q 2 . 

082F 

.... F.O. 

07 DO 
. 0036... 

...IE.... 


LCALL 

MOV 

MOV 

LUMP 

SETNORM ? ELSE restore dispatch address 

.. JEh. .#EL.BJL.?.. < BI .tab.l.e. .1 em=»th. 

DPTRj #ELBT ? (DPTR) = ESC l table 

STUMP .... 5 Jump to any routine 
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1 



; ; 

ELBT 

- escape left 

bracket table 


2 



; 





3 



; 

■8-ELBT# contains the 

third and/or 

final character of the 

4 



7 

ANSI 

escape sequence for ESC C Pn 

F 

5 



; 





6 



; 

Table 

entries are: 

Final character of ESC C Pn F sequence 

7 



; 

followed bv address 

of the routine which performs the 

8 

9 



? 

requested function. 



10 








11 


07D0 

ELBT 

EQU 

$ 



12 








13 

07D0 

3E 


DB 

••• •' 

; 

ESC C > Ps F 

14 

07D1 

0898 


DW 

A2M 

? 

ANSI set mode #2 

15 








16 

07D3 

3F 


DB 

••• o 

? 

ESC t ? Ps F 

17 

07D4 

0880 


DW 

AIM 

7 

ANSI set mode #1 

IS 








19 

07D6 

41 


DB 

-A' 

; 

ESC C Pn A 

20 

07D7 

0C9D 


DW 

ACUP 

? 

ANSI cursor up 

21 








22 

07D9 

42 


DB 

-B- 

! 

ESC C Pn B 

23 

07 DA 

OCBB 


DW 

ACDN 

7 

ANSI cursor down 

24 








25 

07 DC 

43 


DB 


7 

ESC C Pn C 

26 

07DD 

0C6E 


DW 

ACRT 

7 

ANSI cursor right 

27 








28 

07DF 

44 


DB 

'B' 

• 

ESC t Pn D 

29 

07E0 

0C46 


DW 

ACLFT 

7 

ANSI cursor left 

30 








31 

07E2 

48 


DB 

■’ H •'* 

; 

ESC l Pn ? Pn H 

32 

07E3 

09FA 


DW 

APCA 

; 

ANSI perform cursor address 

33 








34 

07E5 

4A 


DB 

'J' 

; 

ESC C Ps J 

35 

07E6 

0A1A 


DW 

EID 

7 

Erase in display 

36 








37 

07E8 

4B 


DB 

' K •' 

7 

ESC L Ps K 

38 

07E9 

0A2B 


DW 

EIL 

5 

Erase in 1ine 

39 








40 

07EB 

4C 


DB 

'L' 

? 

ESC l Pn L 

41 

07EC 

0D7D 


DW 

ARIL 

; 

ANSI perform insert line 

42 








43 

07EE 

4D 


DB 

-M- 

7 

ESC C Pn M 

44 

07EF 

0DB6 


DW 

APDL 

? 

ANSI perform delete line 

45 








46 

07F1 

50 


DB 

"P" 

? 

ESC L Pn P 

47 

07F2 

0E32 


DW 

APDC 

? 

ANSI perform delete char 

48 








.49. 

07F4 

5A 


DB 

z •- 

7 

ESC C Pn Z 

50 

07F5 

0CC6 


DW 

APBT 

; 

ANSI perform back tab 

. m. 








52 

07F7 

63 


DB 

•' c 

■ 

ESC C Pn c 

.53 

.07F8... 

.. .QEC3. 


.DW.... 

ADA 

. . 

ANSI device attributes 

54 








. 55 

.P.7F.A... 

.. .6.6. 


.DB.... 

- f •' 


. ESC.. E..P.rj.. Pn.. f... 

56 

07FB 

09FA 


DW 

APCA 

7 

ANSI perform cursor address 

..57. 
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1 07FD 

67 

DB 



ESC C Ps s 

2 07FE 

.3. 

062B 

DW 

ATBC 

* 

ANSI tabulation clear 

4 0800 

68 

DB 

- h •- 

; 

ESC L Ps h 

. 5 080.1... 

.. .083jD. 

. m . 

.ASM. 


ANSI set mode 

6 

7 0803 

6 C 

DB 

•" 1 - 

. 

ESC C Ps 1 

8 0804 

9 

085F 

DW 

ARM 


ANSI reset mode 

10 0806 

6 D 

DB 

■" m •' 

; 

ESC L Ps m 

11 0807 

0A3B 

DW 

ASGM 

? 

ANSI set graphics mode 

12 

13 0809 

6 E 

DB 

" n " 

. 

ESC C Pri r, 

14 080A 

15 

OAAF 

DW 

ACER 

? 

ANSI cursor position report 

16 080C 

70 

DB 

•- P •- 

; 

ESC l p 

17 080D 

1030 

DW 

R2„TC 

; 

Transmit page 

18 

19 080F 

72 

DB 

•- r •- 

. 

ESC C Pn ? Pr. r 

20 0810 

21 

0D24 

DW 

DSR 

5 

ANSI define scrolling region 

22 0812 

73 

DB 

5 

7 

ESC C s 

23 0813 

OEEF 

DW 

ASCP 

; 

ANSI save cursor position. 

24 

25 0815 

75 

DB 

, u . 

7 

ESC C u 

26 0816. 
27 

0F03 

DW 

AUSCP 

? 

ANSI unsave cursor position 

28 0818 

76 

DB 

' V ‘ 

? 

ESC t Pn v 

29 0819 

OF 9 6 

DW 

SBLR 

? 

Set blink rate 

30 

31 081B 

77 

DB 

'w' 

- 

ESC C Pn w 

.32 08iC " 

33 

OAEA 

DW 

ASBR 

7 

ANSI set baud rate 

34 08IE 

' ’ 7 A. 

DB 

'z' 

7 

ESC C Pn z . 

35 08IF 

OAF 6 

DW 

ARAMP 

7 

ANSI reset to power up 

36 

37 0821 

7B 

DB 

- i' 

7 

ESC C Ps C 

.38 0822 

39 

0B7A 

DW 

PCLK 

5 

Program clock 

40 0824 

7D 

DB 


; 

ESC [ Ps > 

41 0825 

0A65 

DW 

ASPF 

7 

Set protected fields 

42 

43 0827 

40 

DB 


- 

ESC Z Pn £ 

44 0828 

45 

0DE9 

DW 

APIC 

" 

ANSI perform insert character 


46.OO iE.ELBfL. ' EQU.(¥~ELBT)/3.? Table length 



































Z29R0M? MICROBENCH 8051 CROSS ASSEMBLER (Vi)—218 24-FEB-83 15:30:06 PAGE 69 
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1 ?5 SETDISP - set dispatch address 


2 

3 




7 

* 

7 

*SETDISP* sets the dispatch address to the address Just 

4 

5 




7 

■ 

7 

following the call to this routine. This routine then 
executes a -RET-. Be caretul1 with this. A call to this 

6 

7 




? 

■ 

7 

routine does not return to back to the routine that called 
this one. 

S'' ? 

9 ; 

• TO' 

11 




7 

7 

ENTRY none 

12 

13 




m 

7 

■ 

EXIT none 

T4 

15 




• 

7 

USES none 

16 

17 

0S2A 

DO 

15 

SETDISP: 

POP DSADR'H ? Get high bvte of data 

IS 

19 

082C 

0S2E 

DO 

22 

16 


POP DSADRL ! Get low bvte of data 

RET 


20 

21 


23 


24 

25 




" ? 

SETNORM 

- set 

dispatch normal 

26 




a 

*SETNQRM* sets 

the dispatch address for processing characters 

27 




7 

back to 

the "normal •" address. 

28 




m 

7 




29 




? 




30 




5 

ENTRY 

none 


31 




7 




32 




7 

EXIT 

none 


33 




; 




34 




; 

USES 

none 


35 








36 








37 0S2F 

75 

16 

CO 

SETNORM: 

MOV 

DSADRL 

, #LOW (NORM) ? Restore dispatch address 

38 0832 

75 

15 

00 


MOV 

DSADRH 

, #HIGH (NORM) 

39 0835 

22 




RET 
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*#*.Z~Z$>. COMPUTER. .TERMINAL. .FIRMWARE .VERSIDIM.. 1...03. ***. ,... 

. X .5.?..SUMP. .se.ar.ch..table. .and. . Jump.. 

2 * STCALL - Jump to routine in (DPTR) 


4 “ *STJMP# does a search table operation. If the data u/as found 

5 . ?.it..d.oe.s. .a..lump..t.o.. .the..add.re.ss.. in ..the.X.DRTR).7...otherwise..i.t. 

6 ? does a return. 

7 .5....... 

8 “ #STCALL only does a Jump to the address in the (DPTR). 


10 

.u. 

12 

.IS. 

14 

.1.5. 



.5. 

. 7 . .. 

.ENTRY.. 

.EXIT... 

.USES... 

.. .(D.P7 .R). .-. 

.. .none. 

..A. 

.a.d dr.es s. .to. lump, .to. 

16 







.1.7. 







18 0836 

31 

F7 

SUMP: 

ACALL 

XSTAB 

? Search the table 

. X?.. 0.83.8 

40 

02. 


-J.Q 

. .ST.RET . 

..?. JF carry is set THEN return 

20 







. 21..Q83A... 

... E4..... 


.STCALL.:. 

. OCR . 

A. 


22 083B 

..23.. 

73 



JMP 

(SA+DPTR 

? ELSE Jump to address 

24 083C 

22 


STRETs 

RET 


* Return 
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1 





. . 

ASM - 

ANSI set 

mode sequence 


2 

3 





. 

#ASM* 

set the specified mode(s). 


4 ; 

5 ? 

6 





; 

ENTRY 

none 



7 





; 





8 

9 





. 

EXIT 

none 



10 






USES 

al 1 



11 










12 










13 

083n 

31 

01 


ASM: 

ACALL 

GNP 


Get next (or first) parameter 

14 

083F 

40 

OE 



.JC 

ASMR 


IF parameter THEN 

15 

0841 

75 

FO 

05 


MOV 

B? #ASMTL 

(B) = table length 

16 

0844 

90 

0850 



MOV 

DPTR, #ASMT 

(DPTR) = "ESC C Pn h" table 

17 

0847 

31 

F7 



ACALL 

XSTAB 


search table 

18 

0849 

40 

04 



JC 

ASMR 


IF found THEN 

19 

084B 

11 

3 A 



ACALL 

STCALL 


Jump to routine 

20 

084D 

80 

EE 



SJMP 

ASM 


and keep going 

21 










23 

084F 

22 



ASMR: 

RET 




24 










25 










26 










27 





;; 

ASMT - 

ANSI set 

. mode, sequence table... 

28 





; 





29 





? 

# ASMT# 

. contains 

valid parameters 

for "ESC C Pn h" se?.MejlC£«. 

30 










.31. 










32 


0850 



ASMT 

EQU 

$ 



.3.3 










34 

0850 

01 




DB 

1 


ESC C 1 h 

.35. 

.085}... 

... .086E... 




. m . 

...EC ATM... 


.. E.n t e r.. 9.y a r. d.e d. .ar.ea. .tc an s.f.e r. 

36 










37 

0853 

02 




DB 

2 


ESC l ? h 

38 

39 

0854 

0FB9 




.bw. 

DKI 


Disable keyboard input 

40 

0856 

04 




DB 

4 


ESC C 4 h 

.41. 

08.57... 

... 0.85.4... 




.DW.. 

...EICM . . 


Enter insert character..mode. 

42 










43 

0859 

06 




DB 

6 


ESC H 6 h . 

44 

085A 

OB 74 




DW 

EERM 


Enter erasure mode 

45 










46 

085C 

14 




DB 

20 


ESC l 20 h 

47 

.085D .. 

0B62 




.pw. 

EACR 


Enable auto CR on LF , .... 

48 










49 


0005 



ASMTL,. 

.EQU.... 

ASMT. >./.3. 

. .Table. .i.e.ng.th. 
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1 





7 7 

ARM - 

ANSI reset mode 

sequence 

3 





. 

*ARM* 

reset the specified mode(s). 

4 

5 





, 




6 





7 

ENTRY 

none 


7 





* 

7 




8 





» 

7 

EXIT 

none 


9 





; 




io 





? 

USES 

al 1 


11 









i 2 









13 

085F 

31 

D1 


ARMS 

ACALL 

GNP 

? REPEAT set parameter 

i4 

0861 

40 

EC 



JC 

ASMR 

» IF no parameter THEN return 

15 

0863 

75 

FO 

05 


MOV 

B, #ARMTL 

? (B) = table length 

16 

0866 

90 

0871 



MOV 

DPTR,‘ #ARMT 

? <DPTR) « “ESC C Pn 1“ table 

17 

0869 

31 

F7 



ACALL 

XSTAB 

? search table 

18 

086B 

40 

E2 



JC 

ASMR 

; IF not found THEN return 

19 

086D 

11 

3A 



ACALL 

STCALL 

* call routine 

20 

086F 

530 

EE 



SUMP 

ARM 

• UNTIL forever 

21 









22 









23 









24 









25 





m m 

7 7 

ARMT - 

ANSI reset mode 

sequence table 

26 





; 




27 





7 

*ARMT* 

contains valid 

parameters for.“ESC C.Pn 1" sequence 

28 









29 









30 


0871 



ARMT 

EQU 

$ 


31 









32 

0871 

01 




DB 

i 

? ESC C 1 1 

33 

0872 

0B71 




DW 

XGATM 

" Exit guarded area transfer 

.34 









35 

0874 

02 




DB 

2 

? ESC C 2 1 

36 

0875' ' ' 

''' 0PB8' '' 




DW 

EKI 

? Enable keyboard input 

37 









38 

0877 

04 




DB 

4 

? ESC C 4 1 

39 

0878 

0B58 




DW 

XI CM 

5 Exit insert character mode 

40 









41 

087A 

06 




DB 

6 

? ESC C 6 1 

42 

087B 

0B77 




DW 

XERM 

? Exit erasure mode 

43 









44 

087D 

14 




DB 

20 

? ESC L 20 1 

45 

087E 

0B65 




DW 

XACR 

? Disable auto CR on LF 

46 









47 


0005 



ARMTL 

EQU 

($-ARMT>/3 

? Table length 
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*** Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 


1 





;; 

AIM - 

ANSI mode #1 







5 

*A1M* 

inputs the parameter string 

and final character for 

4 






the E 

SC C ? F's F sequence. 


6 

7 





; 

ENTRY 

none 


8 

9 






EXIT 

none 


10 

11 





l 

USES 

al 1 


12 

13 

14 

15 

0880 

0882 

C2 

11 

18 

2 A 


AIMS 

CLR 

ACALL 

PSDF 

SETDISP ; 

Cl ear *PSD# f1 as 

Set dispatch and return 

16 

17 

0884 

31 

71 



ACALL 

PSD ; 

Get parameter str-ins 

18 

19 

0886 

0888 

50 

11 

C7 

2 F 



JNC 

ACALL 

ASMR ; 

SETNORM ? 

IF not done THEN return 

ELSE restore dispatch 

20 

21 

088A 
088D 

75 

90 

FO 

0892 

02 


MOV 

MOV 

B, #EQMTL 

DF'TR, #EQMT ? 

<B> = table lensth 
(DPTR> = ESC C ? table 

22 

.23. 

0890 

01 

36 



AJMP 

STUMP ? 

•Jump to any routine 

24 

25 

26 

27 





. . 

EQMT - 

escape C ? Pn Ps table 


28 

29 





ii 

7 

• 

7 

*EQMT* 

contains the fourth and/or 

final character 

30 

.31_ _ _ ____ 

32 


0892 



EQMT 

EQU 

$ 


34 

0892 

0893 

68 

08 BO 




DB 

DW 

h •- ; 

A1SM 5 

ESC C ? Pn h 

ANSI set mode #1 

36 

37 

0895 

6 C 




DB 

... 1 , ? 

ESC L ? Pn 1 

38 

.3.9. 

0896 

08CC 




DW 

A1RM 5 

ANSI reset mode 

40 


0002 



EQMTL 

EQU 

<*-EQMT>/3 ? 

Table lensth 
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1 

;; A2M - 

ANSI mode #2 

3 

; *A2M* 

inputs the parameter strins and final character for 

4 

; the 

ESC C > Pn Ps sequence. 

6 

* 


7 

? ENTRY 

none . 

8 

9 

? EXIT 

none 

10 

; 


11 

; uses 

al 1 


12 

13 


14 

15 

0898 

089A 

C2 

11 

18 

2A 


A2MS 

CLR 

ACALL 

PSDF 

SETDISP 

» Clear *PSD* flas 
* Set dispatch and return 

16 









17 

089C 

31 

71 



ACALL 

PSD 

? Get parameter string 

18 

089E 

50 

22 



JNC 

A1 SR 

; IF not done THEN return 

19 

08 AO 

11 

2F 



.ACALL... 

SETNORM 

.?.. ELSE. .dlsp.at.ch. 

20 

08A2 

75 

FO 

02 


MOV 

B, #EGTTL 

* (B) » table lensth 

21 

08 A 5 

90 

....08AA .. 



.MQV. 

.. I'PTPU . ,#E.QT.T. 

..?.. AOP.TR).. =. ESC. X . J*. .UELe. 

22 

23 

08A8 

01 

36 



AJMP 

STJMP 

■ Jump to any routine 


24 


26 

27 



7 7 

EGTT - 

escape C > Pn 

Ps table 

28 

29 



• 

7 

*EGTT* 

contains the 

fourth and/or final character. 

30 

31 

32 

33 


08AA 

EGTT 

EQU 

* 


34 

35 

08AA 

08 A B 

68 

08FF 


DB 

DW 

- h - 

A2SM 

? ESC C > Pn h 
“ ANSI set mode #1 

36 

37 

08AD 

6C 


DB 


? ESC r > Pn 1 

38 

39 

08AE 

0944 


DW 

A2RM 

? ANSI reset mode 

40 


0002 

EGTTL 

EQU 

<$-EGTT>/3 

? Table lensth 








































Z29R0M5 'HiCROBENCH’8051‘CROSS * ASSEMBLER'VV1 )-218 ‘'24-FEB-83 15:30:06 ‘PAGE' 75 
*** 7.-29 COMPUTER .TERMINAL FIRMWARE VERSION 1.03 ***. 


1 




. . 

A ISM - 

ANSI mode #1 set 

mode sequence 


2 

3 




7 

7 

■K-A1 SM# 

set the specified 

mode(s). 



4 




7 






5 




? 






6 




7 

ENTRY 

none 




7 




7 






8 

9 




7 

7 

EXIT 

none 




10 




7 

USES 

A, B, DPTR 




11 










12 










13 

08B0 

31 

D1 

A1SM s 

ACALL 

GNP 

7 

Get next (or first) 

parameter 

14 

08B2 

40 

OE 


JC 

A1 SR 

« 

7 

IF parameter THEN 


15 

08B4 

75 

FO 

03 

MOV 

B, #A1STL 

7 

<B) = table length 


16 

08B7 

90 

08C3 


MOV 

DPTR, #A1ST 

7 

(DPTR) = ESC C ? Pn 

h table 

17 

08BA 

31 

F7 


ACALL 

XSTAB 

7 

Search table 


18 

08BC 

40 

04 


JC 

A1SR 

m 

7 

IF found THEN 


19 

OSBE 

11 

3 A 


ACALL 

STCALL 

7 

Jump to routine 


20 

08C0 

80 

EE 


SJMP 

A ISM 

■ 

7 

and keep soins 


21 










22 

08C2 

22 


AlSRs 

RET 






,23. 

24 

25 . 

26 

27 . ?? A1ST - ANSI mode #1 set mode table 

28 ? 


29 . 

30 

M . 

32 0SC3 

.33 . 

34 08C3 02 

.35..Q8.C4.0B.07 

36 

37. 08.C6 .03... 

38 08C7 OBAC 

. 3.9 .. 

40 08C9 07 

41. 08CA.QAFP. 

42 

4.3..0003. 


A 1ST 


f.AlSMT* .contains . ya.l.i d . parameters . for . ESC. C. . ? . F‘.n. h. sequence... 


EQU * 

DB.2...V ESC*C’? 2h . 

DW.E.ZM. .. £n X*r .. 7P.S. mv.d.e. 

DB .3.. ?. ESC. .C..?. 3. h. 

DW CLRS * Enter 132 column mode 


DB 7 ? ESC C ? 7 h 

DW.WEQL.*.. Wr^p .a.t. sad . P.f.. 1 .i. 0 £. 


A1SJL 


EQU 


(.t7.AlST)/3 


Table. .length 
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*** Z-29 COMPUTER TERMINAL .FIRMWARE 

, VERSION. 1* 0.3. 





1 





A1RM - 

ANSI mode #1 reset 

mode 

sequence 

c« 




? 

*A1RM* 

resets the specified mod 

e(s>„ 

4 




; 





5 




9 





6 




; 

ENTRY 

none 



7 




; 





9 




. 

EXIT 

none 



10 





USES 

A, B, DPTR 



11 









12 









13 

08CC 

31 

01 

A1RM: 

ACALL 

GNP 


? REPEAT set parameter 

14 

OSCE 

40 

F2 


JC 

A1SR 


? IF no parameter THEN exit 

15 

08D0 

75 

FO 03 


MOV 

B> #A1RTL 


? (B> ss table length 

16 

0803 

90 

08DE 


MOV 

DPTR, #A1RT 


? (DPTR) = ESC t ? Pn 1 table 

17 

0806 

31 

F7 


ACALL 

XSTAB 


? Search table 

.18 

0808 

40 

E8 


.JC 

A1 SR 


? IF found YHEN 

19 

08DA 

11 

3 A 


ACALL 

STCALL 


? Jump to routine 

20 

21 

08DC 

80 

EE 


SUMP 

A1RM 


? UNTIL forever 

22 









22; 









24 









25 




? ; 

A1RT - 

ANSI mode #1 reset 

mode 

tabl e 

.26' 




; 





27 




; 

*A1RMT* 

• contains valid parameters for ESC l ? Pn 1 sequence. 

28 









29 









30 


08 DE 


A1RT 

EQU 

* 



31 









32 

08DE 

02 



DB 

2 


? ESC t ? 2 1 

33 

OSDF 

0B07 



DW 

EZM 


? Enter VT52 mode 

34 









35 

08E1 

03 



DB 

3 


? ESC C ? 3 1 

36 

08E2 

'6 BAG . 



DW 

CLRS 


? Enter 80 co1umh mode 

37 









38 

08E4 

07 



DB 

7 


? ESC C ? 7 1 

39 

08E5 

OBOO 



DW 

DEOL 


; Discard past end of line 

40 









41 


0003 


A1RTL 

EQU 

<$~AlRT>/3 


? Table length 
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1 




• • 

SMS - 

set mode sequence 


2 

3 




ft 

7 

7 

*SMS* 

sets the mode specified 

bv the last character in the 

4 




» 

7 

sequence. 


5 




« 




6 




ft 

7 




7 




n 

7 

ENTRY 

none 


8 

9 




ft 

7 

ft 

EXIT 

none 


10 




ft 

7 




11 




? 

USES 

all 


12 








13 








14 08E7 

15 

11 

2A 


SMS: 

ACALL 

SETDiSP 

" Set dispatch and return 

16 08E9 

li 

2F 



ACALL 

SETNORM 

? Restore dispatch address 

17 08EB 

C3 




CLR 

C 


18 08EC 

94 

31 



SUBB 

A, #'l' 

? Subtract offset 

19 08EE 

40 

OE 



.JC 

SMSRET 

? Check for lower bounds 

20 08F0 

B4 

09 

00 


CJNE 

A? #< '9'-'Q'U SMS 1 


21 08F3 

50 

09 


SMS 1: 

•JNC 

SMSRET 

? Check for upper bounds 

. 22 08F5 

04 




INC 

A 

5 Bump up into range 

23 08F6 

75 

FO 

09 


MOV 

B, #SMSTL 

• <B> = table length 

24 08F9 

90 

0911 



MOV 

DPTR, #SMST 

5 (DPTR) = ESC x Pn table 

25 08FC 

01 

36 



A.JMP 

STJMP 

5 .Jump to anv routine 

26 

27 08FE 

22 



SMSRET: 

RET 
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1 




» « 

A2SM - 

ANSI mode #2 set mode se 

quence 

3 




. 

*A2SM# 

set the specified models 

). 

4 ; 

5 . . ? . . 

6 

7 




« 

ENTRY 

none 


8 

9 




? 

EXIT 

none 


10 

.u 




? 

USES 

A, B, DPTR 


12 

.1.3. 

14 

3 5 

.ORFF... 

0901 

0903 

...31 . 

40 

75 

m . 

FB 

FO 09 

A2SMs 

ACALL 

JC 

MOV 

GNP 

SMSRET 

B, #SMSTL 

? Get next (or first) parameter 
, IF parameter THEN 
; (B) = table length 

16 

.1.7 

0906 

0909 

90 

31 

0911 

F7 


MOV 

ACALL 

DPTR, #SMST 

XSTAB 

? (DPTR) = ESC C > Pn h table 
" Search table 

18 

19 

090B 

090D 

40 

11 

FI 

3 A 


JC 

ACALL 

SMSRET 

STCALL 

? IF found THEN 
? Jump to routine 

20 

21 

090F 

80 

EE 


JMP 

A2SM 

, and keep so ins 

22 

23 

24 

.25. 




, , 

SMST - 

set mode sequence table 


26 

27 




7 

#SMST* 

contains valid parameter 

s for ESC x Pn sequence 

28 

29 




! 

and E: 

3C C > F'n h sequence 


30 

31 


0911 


SMST 

EQU 

$ 


32 

33 

0911 

01 



DB 

1 

? ESC x 1 ESC L > 1 h 

34 

35 

0912 

OBOB 



DW 

E25L 

? Enable 25th line 

36 

37 

0914 

0915 

02 

OB 2D 



DB 

DW 

2 

NKC 

? ESC x 2 ESC L > 2 h 

* N o k e Y b o a r d c 1 i c k 

38 

39 

0917 

03 



DB 

•3 

? ESC x 3 ESC t > 3 h 

40 

41 

0918 

0B3C 



DW 

EHSM 

? Enter hold screen mode 

42 

43 

091A 

09 IB 

04 

OB 3 3 



DB 

DW 

4 

SBC 

? ESC x 4 ESC C > 4 h 

; Se t "b1oc k " cur s or 

44 

45 

09 ID 

05 



DB 

CT 

.? ESC x 5 ESC C > 5 h 

46 

47 

09 IE 

0B5F 



DW 

DC 

, Disable cursor 

48 

49 

0920 

0921 

06 

OB 4 8 



DB 

DW 

6 

EKSM 

? ESC x 6 ESC l > 6 h 

" Enter keypad shifted mode 

50 

51 

0923 

07 



DB 

7 

? ESC x 7 ESC l > 7 h 

52 

53 

0924 

0B4E 



DW 

EKAM 

? Enter keypad alternate mode 

54 

55 

0926 

0927 

08 

0B68 



DB 

DW 

EALF 

5 ESC x 8 ESC C > 8 h 

? Enable auto LF on CR 

56 

57 

0929 

09 



DB 

9 

? ESC x 9 ESC C > 9 h 
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1 092A 

0B62 


DW 

EACR 

? Enable auto CR on LF 

2 

8 

0009 

SMSTL 

EQU 

<*-SMST>/3 

? Table length 


































£ZVKun; 

M i UKUtfLIMUH 

8051 UKU88 ASSEMBLER (V1J-Z18 

24-l~ES~83 1£ 

530 : 06 PAUE 80 


*** 7-29 COMPUTER TERMINAL FIRMWARE 

VERSION UQ3 




. 1 . 





RMS - 

reset mode sequence 


2 

3 




? 

*RMS* 

resets the mode-specified b* 

the last character in the 

4 




7 

sequence. 


e=j 




; 




6 




7 




7 




? 

ENTRY 

none 


8 

9 




; 

EXIT 

none 


10 




; 




11 




7 

USES 

al 1 


12 








13 








14 

092C 

11 

2A 

RMS: 

ACALL 

SETDISP 5 

Set dispatch and return 

15 








16 

092E 

11 

2 F 


ACALL 

SETNORM ? 

Restore dispatch address 

17 

0930 

C3 



CLR 

C 


18 

0931 

"94 

31 


SUES 

A, #'l*- 5 

Subtract offset 

19 

0933 

40 

OE 


JC 

RMSRET ? 

Check for lower bounds 

20 

0935 

B4 

09 00 


CJNE 

A, # (•- 9 •- — •-o ") ? RMS 1 


21 

0933 

50 

09 

RMS 1: 

JNC 

RMSRET 

Check for upper bounds 

22 

093A 

04 



INC 

A 5 

Bump up into range 

23 

093B 

75 

FO 09 


MOV 

B, #RMSTL ? 

(B) = table length 

24 

093E 

■■'90* 

0956 


MOV 

DPTR, #RMST ? 

( DF'TR) = ESC y Pn table 

25 

0941 

01 

36 


AJMP 

STUMP ; 

•Jump to anv routine 

26 








27 

0943 

22 


RMSRET: 

RET 
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1 




- ; 

A2RM - 

ANSI mode #2 reset mode sequence 

2 

3 




. 

*A2RM* 

reset the specified mode( 

s). 

4 ? ’ ■ “ ' ' .* 

5 ; 

6 

7 




T 

5 

ENTRY 

none 


8 

9 




. 

EXIT 

none 


10 

11 




' 

USES 

A, B, DF'TR 


12 

13 

0944 

31 

D1 

A2RM: 

ACALL 

GNP 

? Get next (or first) parameter 

14 

15 

0946 

0948 

40 

75 

FB 

FO 09 


JC 

MOV 

RMSRET 

B, ttRMSTL 

‘ IF parameter THEN 
; (B) = table length 

16 

17 

094B 
094E 

90 

31 

0956 

F7 


MOV 

ACALL 

DPTR, #RMST 

XSTAB 

? (DPTR) = ESC C > Pn 1 table 
; Search table 

18 

19 

0950 

0952 

40 

11 

FI 

3A 


JC 

ACALL 

RMSRET 

STCALL 

? IF found THEN 
" .jump to routine 

20 

21 

0954 

80 

EE 


SJMP 

A2RM 

? and keep going 

22 

23 

24 

25 




. . 

RMST - 

ANSI reset mode sequence 

tab 1 e 

26 

27 




? 

*RMST* 

contains valid parameters 

for ESC Z > Pn 1 sequence. 

28 

29 

30 

31 


0956 


RMST 

EQU 

$ 


32 

33 

0956 

0957 

01 

OB 15 



DB 

DW 

1 

D25L 

; ESC v 1 ESC l > 1 1 

? Disable 25th line ... ...... 

34 

:-;Pi 

0959 

02 



DB 


5 ESC v 2 ESC Z > 2 1 

36 

37 

095A 

0B26 



DW 

EKC 

• Enable keyboard cl ick 

38 

39 

095C 
095Ei 

03 

0B43 



DB 

DW 

XHSM 

? ESC y 3 ESC Z > 3 1 

40 

41 

095F 

04 



DB 

4 

5 ESC v 4 ESC Z > 4 1 

42 

43 

0960 

OB 37 



DW 

sue 

" Set "underscore" cursor 

44 

45 

0962 

0963 

05 

0B5C 



DB 

DW 

EC 

? ESC v 5 ESC Z > 5 1 

' Enable cursor 

46 

47 

0965 

06 



DB 

6 

? ESC y 6 ESC C > 6 1 

48 

49 

0966 

0B4B 



DW 

XKSM 

? Exit keypad shifted mode 

50 

51 

0968 

0969 

07 

0B51 



DB 

DW 

7 

XKAM 

? ESC y 7 ESC E > 71 

; Exit keypad alternate mode 

53 

096B 

08 



DB 


• f£C;f Y ft ESC C 8 1 

54 

096C 

0B6B 



DW 

XALF 

' Disable auto LF on CR 

56 

57 

096E 

096F 

09 

0B65 



DB 

DW 

9 

XACR 

? ESC y 9 ESC Z > 9 1 
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. 1 . 


0009 


RMSTL 


EQU 


($—RMST)/3 


Table lensth 
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1 





; ? 

PSD - 

parameter string decoder 


2 

3 





! 

7 

♦PSD* 

inputs a parameter string of 

decimal numbers separated 

4 





J 

bv a semicolon (to a maximum of 8 ) 

until the final character 

cr 






of the 

escape sequence (non decimal and not a semicolon) is 

6 

7 





• 

7 

inputed. 


8 

9 





• 

7 

9 

7 

ENTRY 

(A) = next parameter character 

10 





5 




11 





7 

EXIT 

(A) = last character inputed (Ps usuallv) 

12 

13 





7 

7 


"C•' = set if done decoding 

, clear otherwise 

14 





7 

USES 

A, B, DPTR, TEMP 


15 









16 









17 

0971 

20 

18 

OE 

PSD: 

JB 

PSDF, PSDB ! 

IF first time through THEN 

18 

0974 

D2 

18 



SETB 

PSDF 

toggle flag 

19 

0976 

75 

1A 

F 8 


MOV 

PMADRL, #LOW (PMBUF) ? 

set parameter pointer 

20 

0979 

75 

19 

57 


MOV 

PMADRH, #HIOH (PMBUF) 


21 

097C 

75 

IB 

FF 


MOV 

PMNUM 7 #~1 ; 

init number of parameters 

22 









23 

097F 

75 

1C 

00 


MOV 

PMVALUE» #0 

in it parameter value 

24 









25 

0982 

B4 

3 A 

00 

PSDBs 

CJNE 

A, #'9->l, PSDB1 


26 

0985 

50 

IB 


PSDB1: 

•JNC 

PSDE 5 

IF below upper range AND 

27 

0987 

B4 

30 

00 


CJNE 

A, PSDB2 


28 

098A 

40 

16 


PSDB2: 

JC 

PSDE 

IF above lower range THEN 

29 









30 

098C 

94 

30 



SUBB 

A, #'O y 

remove ASCII offset 

31 

098E 

C5 

1C 



XCH 

A, PMVALUE ? 

get previous value 

32 

0990 

75 

FO 

OA 


MOV 

B, #10 


33 

0993 

A4 




MIJL 

AB ; 

value := value * 10 

34 

0994 

25 

1C 



ADD 

A, PMVALUE ? 

value := value + newparm 

35 

0996 

F5 

1C 



MOV 

PMVALUE, A 5 

save new parameter value 

36 

0998 

E5. 

IB 



MOV 

A, PMNUM 


37 

099A 

B4 

FF 

03 


CJNE 

A, #-l, PSD1 5 

IF parmnum = -1 THEN 

38 

099D 

75 

IB 

00 


MOV 

PMNUM, #0 ? 

parmnum := 6 

39 

09A0 

C3 



PSD1: 

CLR 

c ? 

flag - still parsing string 

40 

09 A1 

22 




RET 



41 









42 

09A2 

85 

1A 

82 

PSDE: 

MOV 

DPL, PMADRL 

ELSE get parameter address 

43 

09A5 

85 

19 

83 


MOV 

DPH, PMADRH 


44 

09A8 

FD 




MOV 

TEMP, A ? 

save character temporarv 

45 

09A9 

E5 

1C 



MOV 

A, PMVALUE ? 

get current parameter value 

46 

09 AB 

FO 




MOVX 

@DPTR, A ; 

save in parameter buffer 

47 

09AC 

A3 




INC 

DPTR ; 

bump parameter address 

48 

09AD 

E5 

82 



MOV 

A, DPL ; 

get low bvte address to 

49 

09AF 

B4 

00 

05 


CJNE 

A, #LOW(PMBUF+8), PSD2 ? 

IF overflow THEN 

50 

09B2 

75 

IB 

08 


MOV 

PMNUM, #8 ? 

give max number of parameters 

51 

09B5 

80 

08 



SJMP 

PSD3 

an.d skip 

52 

09B7 

85 

82 

1A 

PSD2: 

MOV 

PMADRL, DPL ? 

ELSE replace 

53 

09BA 

85 

83 

19 


MOV 

PMADRH, DPH 5 

parameter address 

54 

09BD 

05 

IB 



INC 

PMNUM ; 

bump number of parameters 

55 

09BF 

...ED. 



.PS £3?. 

MOV 

A, TEMP ? 

... r.S ?.tp.re.. or jg j. na 1.. char.av.ter. 

56 

09C0 

B4 

3B 

OC 


CJNE 

A, #•'?•', PSDRET 

IF ,; 5* ; THEN . .. 

57 

09C3 

75 

1C 

00 


MOV 

PMVALUE, #0 5 

reset. Parameter value . 
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.... *** Z—29 COMPUTER TERMINAL 

FIRMWARE 

VERSION 1.03 





1 

09 C 6 

AD 

IB 



MOV 

TEMP, 

PMNUM 


2 

09C8 

BD 

00 

02 


CJNE 

TEMP, 

#0, PSD4 

? check for "' as first char 

3 

09CB 

05 

IB 



INC 

PMNUM 


? IF so THEN adjust number 

4 

09CD 

C3 



PSD4: 

CLR 

c 


“ flag = still parsing string 

5 

09CE 

22 




RET 




6 

09CF 

D3 



PSDRET: 

SETB 

c 


? Flag = finished parsing 

7 

09DO 

22 




RET 
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1 





• ft 

7 ? 

GNP - 

set next parameter 


2 

3 





SI 

7 

• 

7 

*GNP* 

sets the next (or first) 

parameter from the parameter 

4 





IB 

7 

buffer 

. 


5 





m 

7 




6 





at 

7 




7 





; 

ENTRY 

none 


8 

9 





5 

5 

EXIT 

(A) = next (or first) 

parameter 7 0 if no more 

10 

11 





* 

7 

7 


•"C" = set if no parameters left? clear otherwise 

12 

13 





ft 

7 

USES 

A, DPTR 


14 









15 

09D1 

20 

19 

08 

GNP: 

.JB 

GNPF 7 GNP1 

5 IF first time since ESC THEN 

16 

09D4 

D2 

19 



SETB 

GNPF 

? tossle flas 

17 

09D6 

75 

1A 

F 8 


MOV 

PMADRL, #LOW i PMBUF) 

• set parameter address 

18 

09D9 

75 

19 

57 


MOV 

PMADRH 7 #HIGH (PMBUF) 


19 









20 

09DC 

85 

1A 

82 

GNP1: 

MOV 

DPL, PMADRL 

? Get pointer to next parameter 

21 

.09DF... 

85 

.1.9. 

83 


MOV 

DF'H, PMADRH 


22 

09E2 

E5 ' 

IB 



mov 

A, PMNIJM 

? Get number of parameters 0..7 

.23. 

09E4 .. 

70 

.02.... 



.JNZ 

GNP2 

; IF no more or none at al1 

24 

09E6 

D3 




SETB 

C 

. •-c•" = no more left 

25 

09E7 

...22.... 




RET 



26 

09E8 

EO 



GNP2 5 

MOVX 

A* ©DPTR 

? ELSE set parameter 

.2.7. 

. Q9E9.. 

...A3.... 




INC 

DPTR 

; bump pointer 

28 

09EA 

85 

82 

1 A 


MOV 

PMADRL 7 DPL 

? and save 

.29. 

.09 ED. 

...85.... 

83 

19 


MOV 

PMADRH ■» DPH 


30 

09 FO 

15 

IB 



DEC 

PMNUM 

? dec number of parameters 

.ax. 

.Q9F. Z .. 

...ca.... 




CLR 

C 

• "C*' = parameter available 

32 

09F3 

22 




RET 
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### 7-29 nriMPHTPR TPRM T NAI FTRMUARF UFR: 

( v j. ; 

gjpN 1,03 

*** 



1 



XBLINAB - build line address 



2 


? 

#XBLINAEf# is a Jump to the routine #BLINAD*. It 

i s 

used to 

4 


, 

save bvtes so that routines mav use a short Jump 
instead of a torn? Jump to the other routine. 

to 

here 

6 

7 

8 09F4 

9 

02 04EA 

XBLINADs 

LUMP BLINAD 



10 

11 

12 

13 


- . 

XSTAB - search table 



14 

15 


! 

#XSTAB* is a jump to the routine #STABtf. It is 

used 

to 

16 

17 


. 

save bvtes so that routines mav use a short Jump 
instead of a Ions Jump to the other routine. 

to 

here 

18 

19 . . 

20 09F7 

02 013A 

XSTAB5 

LUMP STAB 
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*** Z—29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 


1 

“? ARCA - ANSI perform cursor 

addressing 


p 

3 

" s-AF'CA* checks to 

see that the 1 

line and column 

values are legal 

4 

? and sets the curs 

or to the 

requested address. 

If the values 

5 

? are out of ranse> 

the old 1 

t i ne 

number remains 

and/or the cursor 

6 

7 

? goes to the last 

column on 

the 

1 ine. 



9 






ENTRY 

none 


. 10 





7 




11 





7 

EXIT 

none 


. 1 ' 2 ' 

13 





7 

7 

USES 

al 1 


14 

15 

16 

09 FA' 

' 31 ' 

Di 


ARC As 

ACALL 

GNR 

; Get next parameter 

17 

09FC 

60 

OA 



JZ 

ACA2 

? IF non-zero THEN 

is 

uvf L 

14 




DEC 

A 

? bring into range 6..24 

19 

09 FF 

B4 

18 

04 


CJNE 

A, #MAXLINE, ACA1 

* check range 

20 

0A02 

30 

15 

05 


JNB 

L25EN, ACA3 

? IF line 25 disbld THEN skip 

21 

0A05 

El 3 




SETS 

C 

? trick ckeck be 1 oui 

' ‘ * 22 ' 

0A06 

'' 'S'O 

02 


AC'Ai: 

•JNC 

AC A3 

5 IF in range THEN 

23 

0A08 

F5 

12 


ACA2! 

MOV 

YPOSi A 

; set Y-Position 

24 

25 

OAOA 

31 

Di 


ACA3S 

ACALL 

GNR 

5 Get next parameter 

26 

O'AOC 

60 

08 



JZ 

AC A 5 

? IF non-zero THEN 

27 

OAOE 

14 




DEC 

A 

? bring into range 0..79 

28 

OAOF 

B4 

50 

00 


CJNE 

A 7 #MAXCHAR+1, ACA3A 

" check range 

29 

0A12 

40 

02 


ACA3As 

JC 

AC A 5 

? IF not in range THEN 

30 

OA14 

74 

4F 



MOV 

A, #MAXCHAR 

? go to end of 1 ine 

31 

OA16 

F5 

11 


ACA5S 

MOV 

XROS 7 A 

? Set X-position 

32 

0 A18 

21 

F4 



AJMP 

XBLINAD 

; Update and return 
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,.***. . IrzTSt . COMPUTER. .TERMINAL. FIRMWARE. .VERSION. X , .03. .***. 


.1. 



.*. ?. 

EID - 

erase in display 


2 




*EID* 

erases the amount of 

the screen specified bv F'n. 

4 

5 







6 

.7. 




ENTRY 

none 


8 

9 



, 

EXIT 

none 


10 

.LI. 



* 

USES 

all 


12 

13 OA1A 

14 0 A1C 

15 OA1E 

31 

70 

.,.81.... 

....PI. 

02 

.08... 

.E.I.D?. 

ACALL 

JN2 

AJMP 

GNP 

EIDl 

....EED. 

? Get parameter 

? IF zero THEN 

? erase to eos and return 

16 

17 0A20 

14 


EIDl: 

DEC 

A 


18 0A21 

19 0A23 

70 

.6.1.... 

02 

.F.l. 


JNZ 

AJMP 

EID2 

EBD 

? IF one THEN 

? erase from beg innins & ret 

20 

.21. .QA23... 

...14..... 


.EJD2:. 

DEC 

A 


22 0A26 

23 .0.A2.8... 

70 

.. .6.1.... 

02 

.AC. 


JNZ 

.AJMP.. 

EIR 

....OCRS. 

? IF tuio THEN 

? erase screen and return 

24 

.23.0. A2A... 

...22.... 


..E JR?. 

.REX... 
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is 30: 06 

PAGE 89 

1 




? ? 

EIL - 

erase 

in 1ine 






#EIL* 

erases 

the portion of the current line as specified 

4 

irj 




. 

b y Pn. 



6 

7 




. 

ENTRY 

none 


g 

9 




; 

EXIT 

none 


10 

11 




. 

USES 

al 1 


12 

13 

14 

15 

0A28 

0A2D 

31 

70 

D1 

02 

m 

r 

ACALL 

JNZ 

GNP 

EIL1 

? Get parameter 
? IF zero THEN 

16 

17 

0A2F 

61 

EO 


AJli P 

EOL 

? erase to eol and return 

18 

19 

0A31 

0A32 

14 

70 

02 

EILU 

DEC 

JNZ 

A 

EIL2 

? IF one THEN 

20 

21 

0A34 

61 

CB 


AJMP 

EBL 

? erase from beginning 8< ret 

22 

23 

0A36 

0A37 

14 

70 

FI 

EIL2S 

DEC 

JNZ 

A 

EIR 

? IF two THEN 

24 

0A39 

61 

DB 


AJMP 

EEL 

“ erase entire line and ret 
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.,*.**. .Zr.29 .. COMPUTER. .TERMINAL .FIRMWARE. .VERSION . 1,0.3. .***... 


. 1 . 





- ; 

.A.Sp.M..— 

ANSI..S.e.t. .gra.P.h.i.';A. m.Od.e. 


3 





; 

.*A£GN* 

.se.ts..o.r. resets, .anr. .or..§U i.. 

pf. .t he. a t.t r.i b.u t.e s. .a.n d. 

4 

5 






graphics modes. 


6 

.7. 





.?. 

.ENTRY.. 

.. n.Q o.e. 


8 

9 





. 

.EXIT.... 

..none... 


10 





5 




.U. 

12 

13 






.USES... 

..*U. 


14 

15 

0A3B 

31 

D1 


ASGMs 

ACALL 

GNP ? 

Get first parameter 

16 

0A3D 

75 

FO 

07 

ASG1: 

MOV 

B, #ASGMTL ? 

(B) = table length 

17 

0A40 

90 

0A50 



MOV 

..pf:tr?..#A3CMT.;. 

..(.PPJR). .r. .set. mp.de.. .t.ab.le.... . . 

18 

6 A 43 

31 

F7 



ACALL 

XSTAB ? 

Search table 

19 

0A45 

.. .40 

.... . 02 .. 



. 0.0 . 

ASOP. .T 

. IF. .f .o.grid. .THEN. 

20 

0A47 

51 

4E 



ACALL 

ASGO ? 

call the routine 

. 21 . 

0A49 ... 

....31. 

....m. 


.AS GO:. 

.ACALL.. 

...GNP...?. 

. Ge t.. n.eKt. pa.r.a.rrie.te.r;. 

22 

0A4B 

50 

FO 



JNC 

ASG 1 ? 

IF done THEN return 


23. .0A4R . 22 . RET .?.. ELSE. .Le<?.R. .l.o.o.pi.oa 


24 


2p. .PA4E... 

.. .E.4. 

.A8.GQ.S. 

.CLR.... 

A 


26 0A4F 

73 


JMP 

QA+DPTR 

? .Jump to routine 
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*** Z—29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *■** 


1 



;; 

ASGMT ~ 

ANSI set graphics mode table 


2 



7 

*ASGMT* 

contains the address of the routines which set the 

4 

5 



« 

requested attribute or graphic mode. 


6 

7 



. 

Table entries ares The third character 
sequence followed hr the address of the 

of the ANSi escape 
routine which performs 

8 

9 



! 

the requested function. 


10 

11 


0A50 

ASGMT 

EQU 

$ 


12 

13 

0A50 

00 


DB 

0 5 ESC C 

0 m 

14 

15 

0A51 

OF 2 6 


DW 

XATR ? Exit - 

all attributes 

16 

17 

0A53 

0A54 

02 

0 F2A 


DB 

DW 

2 5 ESC C 

EHALF ; Enter 

2 m 

half intensitv mode 

18 

19 

0A56 

04 


DB 

4 ? ESC C 

4 m 

20 

.21. 

0A57 

OF 2D 


DW 

EUNDL ? Enter 

underline mode 

22 

23 

0A59 

0A5A 

05 

0F30 


DB 

DW 

5 ? ESC C 

EBLNK ? Enter 

5 m 

blink mode 

24 

25 

0A5C 

07 


DB 

7 ? ESC C 

7 m 

26 

27 

0A5D 

0F33 


DW 

ERVM ? Enter 

reverse video mode 

28 

29 

0A5F 

0A60 

OA 

OF 3 9 


DB 

DW 

10 ? ESC C 

EGM ! Enter 

id m 

graphics mode 

30 

.31. 

, 0A62 . 

OB 


DB 

11 ; ESC C 

11 m 

32 

.33. 

0A63 

0F3C 


DW 

XGM ! Exit • 

graphics mode 

34 


0007 

ASGMTL 

EQU 

(ASGMT)/3 ? Table 

1 ensth 
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*** . 1.-29 . COMPUTER TERM INAL . FIRMWARE. VERS I ON. 1,03 *** 


1 





. . 

ASPF - 

ANSI set 

protected fields 

'2. 

3 





; 

*ASF*F* 

selects 

the attributes which imply protection. Multiple 

4 





; 

attributes mav 

be selected in a single sequence. This sequence 

5 





; 

d o e s not change 

any attributes of the characters displayed on 

6 





; 

the screen or of the characters received. The sequence mere 1v 

7 





; 

changes 

the u.»av 

' the characters with the specified attributes 

R 

9 





; 

are interpreted 

bv the different modes. 

10 





5 




11 





? 

ENTRY 

none 


12 

13 





5 

EXIT 

none 


14 





; 




15 





; 

USES 

al 1 


16 









17 









18 

19 

0A65 

75 

F0 

00 

ASPF: 

MOV 

B? #0 

" initialize bvte 

20 

0A68 

31 

D1 


ASPF1: 

ACALL 

GNP 

? Get next parameter 

21 

0A6A 

40 

22 



JC 

ASPF2 

? Exit when done 

22 

0A6C 

' • B4 

00 

03 


CJNE 

A, #0, 

ASPF1A 

23 

0A6F 

75 

F0 

00 


MOV 

B, #0 

“ None protected 

24 

6 A 72 

' ‘ B4 

02 

02 

ASPF1A: 

CJNE 

A, #2, 

ASPF IB 

25 

0A75 

D2 

F3 



SETS 

B. 3 

? Half intensity 

.26' 

0A77 

B4 

04 

02 

ASPFIB: 

CJNE 

A? #4, 

ASPF1C ' ' ’ ' 

27 

0A7A 

D2 

FI 



SETS 

B. 1 

" Under 1ine 

28 

‘0A7C'" 

'' B4 

05 

02 

ASPF1C-” 

CJNE 

A: #5, 

ASPF ID 

29 

0A7F 

D2 

F2 



SETS 

B. 2 

? Blink 

30 

0A81 

‘ ’ B4 

07 

02 

ASPF1D5 

CJNE 

A, #7, 

ASPFIE 

31 

0A84 

D2 

F0 



SETS 

B.O 

? Reverse video 

32 

0A86 

’ ‘ &4 

FE 

.03’ ’ ’ 

.A3FF1E:. 

.CJNE "" 

' AY'#254 

, ASPFIF . 

33 

0A89 

75 

FO 

so 

.ASPF'IF:. 

MOV 

B* #100000008 ? No attributes are protected 

.34’ 

'OA'SC ' *' 

’ ' '80’ 

.BA ' 


.S'JWP"" 

ASPF 1 


O 

‘omz * • 

'' ‘ 85* 







.36 ‘ 

..FO’ 

.3F” 

.ASPKS:. 

MOV ' 

PFlELtU 

B ? Final change 

37 

0A91 

22 




RET 
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1 



. . 

CBA - 

convert bvte to ASCII 





. 

*CBA* 

converts a bvte into its 

ASCII equivalent. 

4 

ur 



. 




6 

7 




ENTRY 

(A) = bvte to convert 


8 



; 

EXIT 

(B) = hundreds disit 


9 



? 


(DPH) = tens digit 


10 



; 


(DPL) = ones digit 


11 



; 




12 

13 



5 

USES 

A, B, DPTR 


i'4 







15 

0A92 

75 

FO 64 CBA s 

MOV 

B, #100 


16 

0A95 

84 


DIV 

AB 


17 

0A96 

CO 

EO 

PUSH 

ACC 

? Save hundreds amount 

is 

0A98 

E5 

FO 

MOV 

A, B 


19 

0A9A 

75 

FO OA 

MOV 

B> #10 


20 

0A9D 

84 


DIV 

AB 

* (A) =s tens (B) - ones 

21 

0A9E 

24 

30 

ADD 

A, #'0-- 

5 Make tens digit ASCII 

22 

OAAO 

F5 

83 

MOV 

DPH i A 

? Save it 

23 

0AA2 

E5 

FO 

MOV 

A, B 


24 

0AA4 

"‘24’ 

30 

ADD 

a7 #'b' 

; Make ones digit ASCII 

25 

0AA6 

F5 

82 

MOV 

DPL, A 

? Save it 

26 

0AA8 

DO 

EO 

POP 

ACC 


27 

OAAA 

24 

30 

ADD 

A, # X 0 X 

; Make hundreds digit ASCII 

28 

OAAC 

F5* 

FO 

MOV 

B, A 

? Save it 

29 

OAAE 

22 


RET 
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-it 7.-2': 

? CfiMPMTFR TERMINAL FIRMWARE VERSIflN 1.03 





1 



„ , 

AC PR - 

ANSI cursor position re 

port 


2 



“ 

*ACPR* 

outputs the current cursor positio 

tn in the ANSI form 

4 



5 

of ES 

C C PI 3 Pc R Please 

note the tricky code to save a 

5 



» 

few. by 

tes of code. 



6 5 

7 . 3 ... 

8 



« 

ENTRY 

none 



10 



; 

EXIT 

none 



11 



; 





12 

13 



5 

USES 

al 1 



14 








15 

OAAF 

31 

D1 ACPR 3 

ACALL 

GNP 

5 Get parameter 

16 

0AB1 

B4 

06 35 

CJNE 

A* #6 7 APR 

3 IF not 

6 THEN return 

17 

0AB4 

74 

IB 

MOV 

A? #ESC 



18 

0AB6 

51 

CC 

ACALL 

ACP3 

3 Output 

an ESC 

.1.9 

0AB8 

74 

5B. 

MOV 

A, # -L •- 



20 

OABA 

51 

CC 

ACALL 

AGP 3 

3 Output 

a y l •” 

21 

OABC 

.. E5. 

12 . 

MOV 

A? YPOS 



22 

OABE 

04 


INC 

A 

3 Bump to 

normalize 

■y 

OABF 

51 

CF 

ACALL 

ACPI 

3 Output 

Y-pos ition 

2A 

0 AC 1 

74 

3B 

MOV 

A, #3 - 



■"*5 

0AC3 

51 

CC 

ACALL 

ACP3 

3 Output 

seperator 

26 

0AC5 

E5 

11 

MOV 

A, XROS 



27 

0AC7 

04 


INC 

A 

3 Bump to 

i normalize 

28 

0 AC 8 

51 

CF 

ACALL 

ACPI 

3 Output 

X~position 

29 

OACA 

74 

52 

MOV 

A, # R •*' 



30 








31 

OACC 

02 

022A ACP3! 

LUMP 

PCOF 

5 Output 

"R" and return 

32 

33 

OACF 

51 

92 ACPI: 

ACALL 

CBA 

5 Convert 

positio n t o ASC11 

34 

0 AD 1 

AD 

82 

MOV 

TEMP, DPL 

3 Save one " s diait 

.35. 

0AD3.. 

E5 

83 

MOV 

A, DPH 

3 Get ten 

s d i s i t 

36 

0AD5 

B4 

31 00 

CJNE 

A, #”1”, ACPIA 



37 

0AD8 

40 

02 ACPIA: 

JC 

ACP2 

5 IF not 

zero THEN 

38 

OADA 

51 

CC 

ACALL 

A CPS 

5 output ten’s disit 

39 

OADC 

ED 

ACP2 5 

MOV 

A, TEMP 



40 

OADD 

80 

ED 

SJMP 

A CP 3 

3 Output 

one•”s d iait and return 
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1 

?5 APRNT - 

ANSI print pass 

2 

? *APRNT* 

prints the page to the opposite port. 


4 


6 

7 





7 

ENTRY 

none 




8 

9 





. 

EXIT 

none 




10 

11 





5 

USES 

al 1 




12 

13 

OADF 

11 

2A 


APRNT: 

ACALL 

SETDISP 



? Set dispatch and return 

14 

15 

0AE1 

11 

2F 



ACALL 

SETNORM 



' Restore dispatch address 

16 

17 

0AE3 

0AE6 

B4 

02 

37 

103C 

03 


CJNE 

•JMP 

At # '■ 7 •' 
R2-PRNT 

APR 


5 IF ESC # 7 THEN 
? print page 

18 

19 

0AE9 

22 



APR: 

RET 





20 

21 

22 

23 





. . 

ASBR - 

ANSI. set. 

baud 

r.ate. 


24 

25 





: 

•H-ASBR* 

sets the 

baud 

rate to 

that specified bv Pn. 

26 5 

.27... . ?........ .. .. 

28 

29 





? 

7 

ENTRY 

none 




30 

.31. 





5 

EXIT 

none 




32 

33 





* 

USES 

al 1 




34 

35 

0A£A .. 

...31. 

....m. 


ASBRs 

.ACALL.. 

. .QNP. 



? Get parameter . . 

36 

37 

OAEC 

OAEE 

50 

04 

01 



JNC 

INC 

ASBR1 

A 



’ IF no parameter THEN 

; default to 1 . 

38 

39 

OAEF 

QAF2 

B4 

50 

OE 

F5 

00 

ASBR1: 
ASJ3R2: 

CJNE 

JNC 

At #14t 
APR 

ASBR2 


; IF in range (Q..J3> THEN 

40 

0AF4 

Cl 

4B 



A JMP 

SBR 



■ set baud rate and return 
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1 




? " 

ARAMP - 

ANSI reset ail modes to power up configuration 

2 




' ] 

RAMP - 

reset all modes to power up configuration 

• 4 
5 




? 



6 




? 

*ARAMP* 

arid #RAMP* resets all flags etc. to the configuration 

7 




7 

on power up. 

8 

9 




7 



10 




; 

ENTRY 

none 

11 







12 




7 

EXIT 

none 

13 




7 



14 





USES 

al 1 

15 







16 







17 

OAF 6 

31 

D1 

ARAMPs 

ACALL 

GNP " Get anv parameter 

is 

OAFS 

50 

EF 


JNC 

APR " IF no parameters THEN 

19 

OAFA 

02 

1003 

RAMP: 

JMP 

R2-I1M2 ; reset and return 
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1 




;; 

WEOL - 

wrap at end of 1 ine 

3' 




! 

*WEOL* 

sets the flag which causes the terminal to perform 

4 

erj 





a carriage return and line feed immediatlv after the 80th 
character before a line is displayed. 

6 

7 ; 

8 

9 




5 

ENTRY 

none 

10 

11 




; 

EXIT 

none 

12 

13 




5 

USES 

none 

14 

15 

OAFD 

D2 

2 B 

WEOL: 

SETB 

AUTOWRAP ? Flag auto wrap 

16 

17 

OAFF 

22 



RET 


IS 

19 

20 

21 




. . 

DEOL - 

discard at end of line 

.2:3 




? 

*DEOL* 

resets the wrap around at end of line flag. 

24 

25 




7 

characters past column 79 are placed in column 79 until 
a carriage return is received. 

26 ? 

27 ? 

28 

29 




5 

a 

7 

ENTRY 

none 

30 
. 31 




? 

« 

EXIT 

none 

32 

33 





USES 

none 

34 

OBOO 

.. £2_ 

.2JB. 

DEOL: 

CLR 

AUTOWRAP * Clear a u t o wrap 

36 

OB 02 




RET 
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1 





, . 

EAM - 

enter ANSI mode 







S 

*EAM* 

places the terminal in 

the ANSI mode for escape codes- 

4 * 

5 ? 

6 

7 





. 

ENTRY 

none 


9 





? 

EXIT 

none 


10 

11 





! 

USES 

none 


12 

13 

0B03 

75 

28 

01 

EAMs 

MOV 

MODE 7 #00000001B 

° Place in ANSI mode 

14 

15 

0B06 

22 




RET 



16 

17 

18 

19 





. . 

EZM - 

enter ZDS mode 


20 

21 





■ 

*EZM* 

takes the terminal out 

fSl 

of ANSI mode and into ZDS mode. 

23 ? 

24 

25 






ENTRY 

none 


26 

27 





» 

? 

EXIT 

none 


28 

29 





1 

USES 

none 


30 

31 

0B07 

75 

28 

02 

EZMs 

MOV 

MODE, #0000001OB 

? Take out of ANSI mode 

32 

OBOA 

22 



RT is 

RET 
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1 





? 5 

E25L - 

enable 25th line 


2 

3 





7 

7 

*E25L* 

enables the display of the 

25th line only if it has 

4 





7 

not been previously enabled. The 

25th line is cleared at 

5 





7 

the time it is enabled. 


6 

7 





m 

7 




8 

9 





7 

7 

ENTRY 

none 


10 





7 

EXIT 

none 


11 





7 




12 





7 

USES 

A, B? DPTR* TEMP, PTR1 


13 









14 









15 

OBOB 

20 

15 

FC 

E25L: 

JB 

L25EN, RT1 ? 

IF enabled THEN return 

16 

OBOE 

D2 

15 



SETB 

L25EINI ? 

ELSE enable 25th line 

17 

OB 10 

75 

FO 

18 


MOV 

B* ,#MAXLINE 


18 

OB 13 

61 

96 



AJMP 

CLRLINE ? 

Clear 25th line 

19 









20 









21 









22 









23 





! ? 

D25L - 

disable 25th line 


24 









25 






*D25L* 

disables the display of the 25th line and clears it. 

26 





• 

7 

If the 

cursor is on the 25th line 

then it is sent to the 

27 





• 

7 

home position. 


28 





• 

7 




29 





7 




30 





; 

ENTRY 

none 


31 





• 

7 




32 






EXIT 

none 


33 





? 




34 





7 

USES 

A? B, DPTR, TEMP, PTR1 











36 









37 

OB 15 

C2 

15 


D25L: 

CLR 

L25EN ? 

Disable 25th 1ine 

38 

OB 17 

75 

FO 

18 


MOV 

B, #MAXLINE 


39 

OBI A 

71 

96 



ACALL 

CLRLINE ? 

Clear 25th line 

40 

OB 1C 

E5 

12 



MOV 

A, YPOS 


41 

OB IE 

B4 

18 

02 


CJNE 

A, #MAXLINE, XR2-DISP 

IF cursor on 25th line THEN 

42 

0B21 

91 

36 



ACALL 

SCH ? 

set cursor home 

43 









44 

0B23 

02 

1042 


XR2_DISP: 

LUMP 

R2-DISP ; 

Dis p1 a y any status 
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*** 1-29 COMPUTER 

owi onuoo HoocriDLcn; ivirzie 

TERMINAL FIRMWARE VERSION 1.03 

i.H~rto-eci rnut iuu 

1 




, , 

EK'C - 

enab 1e ke y board c1ick 

3 




5 

*EKC* 

resets the flap that disable* keyboard rlirk and 

4 

5 




„ 

outputs the command to the keyboard. 

6 

7 





ENTRY 

none 

8 

9 




; 

EXIT 

none 

10 

11 




7 

USES 

al 1 

12 

13 

14 

15 

OB 26 
0B28 

D2 

74 

33 

©•"> 

EKCs 

SETB 

MOV 

CLKF ? Turn on key click 

A, #KBC_EC 

16 

17 

0B2A 

02 

0260 

XPCKB5 

.JMP 

F’CKB ’ Output command and return 

18 

19 

20 

21 




- ; 

NKC - 

n 0 k e y b 0 a r d die k 

.22 

-73 




\ 

*NKC* 

sets the flap that disables keyboard click and 

24' 

25 




m 

? 

outputs the command to the keyboard. 

26 

27 




7 

ENTRY 

none 

28 

29 




7 

EXIT 

none 

30 

31 




\ 

USES 

al 1 

32 

33 

34 

35 

0B2D 

0B2F 

C2 

74 

33 

83 

NKCs 

CLR 

MOV 

CLKF ? Turn 0 ff key diek 

A, #KBC~DC 

. 36' 

omr '' 

'' 80* 

.F7. 


SUMP 

XF’CKB ? Output command and return 
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1 




;; 

SBC - 

set b1ock cursor 


2 




s 

7 




3 




m 

7 

*SBC* 

programs the CRTC to display a block cursor. 


4 








5 




m 

7 




6 




7 

ENTRY 

none 


7 




? 




’ 8 




• 

? 

EXIT 

none 


9 




7 




id 




« 

7 

USES 

A % Bt DPTR 


11 








.12' 








13 

0B33 

C2 

32 

SBC: 

CLR 

CRUL ? Clear underline flag 


.14' 

OB 35 

' • *80 " " 

*"*02. 


.'gj'MP '' 

SUC1 ! Initialize cursor format 


15 








i'6 








17 








1& 








19 




5 ? 

SUC - 

set underscore cursor 


20 




; 




21 




i 

*suc* 

programs the CRTC to display an underline cursor. 


2*2 




; 




23 




7 




24 




; 

ENTRY 

none 


25 




« 




26 




7 

.EXIT'" 

none 


27 




5 




28 




; 

.USES' 

A, B, DPTR 


29 








30 








31 

OB 3 7 

D2 

32 

SUC: 

SETB 

CRUL ? Set underline flag 


32 








33 

0B39 

02 

10 IB 

SUC1: 

•JMP 

R2-ICUR ? Initialize cursor format 
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£t“rc.D~oo x 

•8-iRfr 

jy<vo r huc iuz 

1 




? * 

EHSM - 

enter hold screen mode 

2 




. 

#EHSM* 

sets the hold screen mode flas. 

4 




; 



5 




; 



6 




; 

ENTRY 

none 

7 




; 



8 

9 




. 

EXIT 

none 

10 




; 

USES 

none 

11 







12 







13 0B3C 

D2 

36 


EHSM2 

SETS 

HSMODEF ? Enter mode 

14 0B3E 

75 

IE 

01 


MOV 

HSLINE ^ #1 ? Set number of lines 

15 0B41 

80 

02 



SUMP 

XHSMl ? Clear stop display and return 

16 







17 







18 







19 







20 




;; 

XHSM - 

exit hold screen mode 

21 




; 



22 

23 




« 

*XHSM* 

clear hold screen mode flas. 

24 




? 



25 




5 

ENTRY 

none 

2 6 




; 



27 




? 

EXIT 

none 

28 




7 



29 




5 

USES 

none 

30 







31 







32 0B43 

C2 

36 


XHSMs 

CLR 

HSMODEF ? Exit mode 

33 







34 OB45 

C2 

22 


XHSMl: 

CLR 

HSSTOFF ? Clear stop disp1av f1 as 

35 0B47 

22 




RET 
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1 




; ; 

EKSM ~ 

enter keypad shifted mode 

z 1 

3 




• 

* 

7 

*EKSM* 

places the numeric keypad into the shifted mode. 

4 

5 




7 

m 

7 



6 

7 




7 

ENTRY 

none 

8 

9 




7 

7 

EXIT 

none 

10 

11 




7 

USES 

none 

12 

13 

OB 48 

D2 

30 

EKSMs 

S'ETB 

KPADSHTF ? Set keypad shifted 

14 

15 

0B4A 

22 



RET 


16 

17 

18 

19 




7 7 

XKSM - 

exit keypad shifted mode 

20 

21 




7 

m 

7 

*XKSM* 

takes the numeric keypad out of the shifted mod.e. 

22 

.?3 




7 

.? , , 



24 

25 




.?. 

ENTRY 

none 

26 

.27 




7 

m 

7 

EXIT 

none 

28 

29 




? 

USES 

none 

30 

.31 

0B4B 

... C2_ 

30 

XKSMs 

.CLR. 

KPAC'SHTF ? Clear keypad shifted . 

32 

0B4D 

22 



RET 
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1 




? ; 

EKAM - 

enter keypad alternate mode 

3 





*EKAM* 

places the numeric keypad into the alternate mode. 

4 




; 



5 




; 



6 




; 

ENTRY 

none 

7 




5 



8 




; 

EXIT 

none 

9 




7 



10 




; 

USES 

none 

11 







12 







13 

0B4E 

D2 

31 

EKAMs 

SETS 

KPADALTF ; Set keypad alternate 

14 

0B50 

22 



RET 


15 







16 







17 







18 







. 19. 




? ? 

XKAM - 

exit keypad alternate mode 

20 




; 



21 




; 

*XKAM* 

takes the numeric keypad out of the alternate mode. 

22 




« 



.23. 




? 



24 




? 

ENTRY 

none 

25 




7 



26 





EXIT 

none 

27 




? 



23 




; 

USES 

none 

29 







30 







31 

0B51 

C2 

31 

XKAM: 

CLR 

KPADALTF 5 Clear keypad alternate 

32 

0B53 

22 



RET 
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1 




. . 

EI CM - 

enter insert character mode 






•a-EICM* 

places terminal into insert character mode. 

4 ; 

6 

7 




5 

ENTRY 

n o ne 

o 

9 




] 

EXIT 

hone 

10 

11 




; 

USES 

ai 1. 

12 

13 

0B54 

D2 

21 

El CM: 

SETS 

ICMODEF * Se t insert mode f1 ag 

14 

0B56 

61 

23 


AJMP 

XR2_DiSP ? Display any change in status 


15 

16 
17 


18 


19 



? ? 

XI CM - 

exit insert character 

mode 

20 







21 



■ 

*XICM* 

takes terminal out of 

the insert character mode. 

22 



? 




23 



■ 




24 




ENTRY 

none 


25 



? 




26 




EXIT 

none 


27 



u 

? 




20 



7 

USES 

al 1 


29 







30 







31 0B58 

C2 

21 

XI CM: 

CLR 

ICMODEF 

? Clear insert mode flag 

32 0B5A 

61 

23 


AJMP 

XR2_DISP 

? Display any change in status 
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1 




; ■ 

EC - 

enable cursor 

2 




7 



3 




* 

*EC# 

enables the display of the cursor. 

4 




7 



5 




; 



6 




; 

ENTRY 

none 

7 




7 



8 




; 

EXIT 

none 

9 




; 



10 




; 

USES 

none 

11 







12 







13 

0B5C 

D2 

1A 

EC: 

SETB 

ENBLCUR ? Enable display of cursor 

i 4 

0B5E 

22 



RET 


15 







16 







17 







18 







19 




5 ; 

DC - 

disable cursor 

20 




; 



21 




? 

*DC* 

disables the display of the cursor 

22 




; 



23 




? 



24 




7 

ENTRY 

none 

25 




7 



26 




; 

EXIT 

none 

27 




? 



28 




? 

USES 

none 

29 







30 







31 

0B5F 

C2 

1A 

DC: 

CLR 

ENBLCUR 5 Disable display of cursor 

32 

0B61 

22 



RET 
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1 




7 5 

EACR - 

enable auto 

carriage 

return 

2 

3 




? 

? 

*EACR* 

enables the 

terminal 

to perform an automatic carriage 

4 

5 




• 

7 

0 

7 

return 

upon receipt 

of a line feed character. 

6 

7 




• 

7 

• 

7 

ENTRY 

none 



8 

9 




7 

0 

7 

EXIT 

none 



10 

. 11 




7 

7 

USES 

none 



12 

.13.. ..... . 

14 

.15 

0B62 

0B64 

D2 
.. 22 

2C 

EACR: 

SETB 

RET 

AUTOCR 


? Enter auto CR mode 

16 

..1.7.,. 


IS 

X.9. 


20 ?; XACR - exit auto carriage return 

.21 ...?... 

22 ; *XACR* clears the auto carriage return flag. 

23 .?. 

24 ; 


.25 . 



. ? . 

ENTRY 

...none. 



26 



; 





. 2.7 . 



. ! . 

.EXIT ... 

none 



28 



• 

7 





.29 . 



• 

7 

.USES.... 

none 



30 








.31. 








32 OB65 

C2 

2C 

XACR: 

CLR 

AUTOCR 

5 Exit auto CR mode 


.3.3..0B.67... 

... 22 .... 



.RET. 



. 
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* 

1 




. .E ALF . - 

enable auto line feed 


2 







3 




.*EALP* 

.e.oa.tO.e?. .t.he. .t.ecnuna.l. .t.o. .pe.cf.Qr.ro. .an. .automatic. 


4 

5 



? 

7 

line feed upon receipt of a carriage return. 


6 



; 




7 



; 

ENTRY 

none 


8 

9 



? 

7 

EXIT 

none 


10 







11 



; 

USES 

none 


12 







13 







14 0B68 

D2 

2D 

EALF5 

SETB 

AUTOLF ? Enter auto LF mode 


15 0B6A 

22 



RET 



16 







17 







18 







19 







20 



; ; 

XALF - 

exit auto line feed mode 


21 



? 




22 



? 

*XALF* 

clears the auto line feed mode flag. 


23 



; 




24 



7 




25 



; 

ENTRY 

none 


26 



? 




27 



7 

EXIT 

none 


28 



7 




29 



7 

USES 

none 


30 







31 







32 0B6B 

C2 

2D 

XALF: 

CLR 

AUTOLF " Exit auto LF mode 


33 0B6D 

22 



RET 
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1 




? ? 

EGATM - enter guarded area transfer mode 

2 

3 




• 

1 

#EGATM# places the terminal in a mode such that all data 

4 

5 




7 

9 

7 

is to be transmitted in a data stream such as transmit page. 

6 

7 




7 

7 

ENTRY none 

8 

9 




7 

7 

EXIT none 

10 

11 




• 

7 

7 

USES none 

12 

13 

14 

15 

0B6E 

0B70 

C2 

22 

25 

EGATM: 

CLR GATM ? Clear guarded area transfer 

RET 


16 

17 


18 

19 


20 

21 




5 5 

7 

XGATM - 

- exit guarded area transfer mode 

22 




M 

*XGATM# places the terminal in a mode such that only 

23 





unprotected data is to be transmitted in a data stream 

24 




; 

such as transmit page. 

25 




7 



26 




; 



27 




■ 

ENTRY 

none 

28 




7 



29 




7 

EXIT 

none 

30 




7 



31 




9 

7 

USES 

none 

32 







33 







34 

0B71 

D2 

25 

XGATM: 

SETB 

GATM " Set guarded area transfer 

35 

OB 73 

22 



RET 
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1 




? 7 

EERM ~ 

enter erasure mode 


2 

3 




• 

7 

7 

*EERM* 

places the terminal 

in a mode such that all data is 

4 

esj 




7 

a 

7 

erased 

in functions such as 

erase screen. 

6 

7 




7 

7 

ENTRY 

none 


8 

9 




5 

EXIT 

none 


id 

u 




7 

7 

USES 

none 


12 

13 

14 

15 

0B74 

0B76 

C2 

22 

IB 

EERMs 

CLR 

RET 

ERM 

? Clear erasure mode 

16 

17 

18 

19 

20 

21 




7 7 

7 

XERM - 

exit erasure mode 


22 

23 




7 

7 

*ZERM* 

unprote 

places the terminal 
cted data is erased 

in a mode such that only 
in functions such as erase 

24 

25 




7 

7 

screen. 



26 

27 




? 

a 

7 

ENTRY 

none 


28 

29 




a 

7 

a 

7 

EXIT 

none 


30 

31 




a 

7 

a 

7 

USES 

none 


32 

33 

34 

35 

0B77 

0B79 

D2 

22 

IB 

XERMs 

SETB 

RET 

ERM 

“ Set erasure mode 
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1 





;; 

PCLK - 

prosram clock 



2 

3 





: 

*PCLK* 

sets the internal clock. 



4 

5 





; 





6 

7 





] 

ENTRY 

none 



8 





; 

EXIT 

none 



9 





; 





10 

11 





? 

USES 

A 7 DPTR 



12 










13 

OB 7 A 

31 

D 1 


PCLKs 

ACALL 

GNP 

“ Get hour parameter 


14 

0B7C 

B4 

18 

00 


CJNE 

A» #24 7 PCL1A 



15 

0B7F 

50 

14 


PCL1A: 

JNC 

PCL 2 

; IF bad parameter THEN 

exit 

16 

0B81 

F5 

3D 



MOV 

THOUR, A 



17 

0B83 

31 

D 1 



ACALL 

GNP 

; Get minutes parameter 


18 

0BS5 

B4 

3C 

00 


CJNE 

A, #60, PCLIB 



19 

0B88 

50 

OB 


PCL1B: 

JNC 

PCL 2 

5 IF bad parameter THEN 

exit 

20 

0B8A 

F5 

3C 



MOV 

TMIN, A 



21 

0B8C 

31 

D1 . 



ACALL 

GNP 

? Get seconds parameter 


22 

0B8E 

B4 

3C 

00 


CJNE 

A, #60, PCL1C 



23 

0B91 

50 

02 


PCL1C: 

JNC 

PCL 2 

? IF bad parameter THEN 

exit 

24 

0B93 

F5 

3B 



MOV 

TSEC, A 



25 

0B95 

22 



PCL2: 

RET 
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1 

2 

3 

4 

5 


a 

? 

7 

a 

7 

7 

CLRLINE - clear 1 ine c omp1e te1 v 

. ;*CLRLINE* wr i tes. .spaces . ini:o_the ..entire. .1 i.o.e.. Indicated and 

ignores any setting of protected fields. 

6 

7 



• 

* 

a 

? 

ENTRY 

(B) = line number to erase 

3 

9 



a 

7 

7 

EXIT 

none 

10 



7 



11 



7 

USES 

A, B, DPTR, TEMP, PTR1, WORKS, INDX2 

12 






13 






14 0B96 

CO 

3F 

CLRLINE: 

PUSH 

F'FIELD ? Save protected fields 

15 0B98 

75 

3F 

00 

MOV 

F’FIELD, #0 , Make everything unprotected 

16 0B9B 

71 

AO 


ACALL 

CLRL ? Clear line 

17 0B9D 

DO 

3F 


POP 

PFIELD * Restore protected fields 

18 0B9F 

22 



RET 


19 






20 






21 






22 






23 



? 5 

CLRL - 

clear line 

24 



; 



25 



7 

*CLRL* 

writes spaces into the entire line indicated. 

26 



7 



27 



; 



28 




ENTRY 

(B> = line number to erase 

29 



a 



30 



7 

EXIT 

none 

31 



; 



32 



; 

USES 

A, B, DPTR, TEMP, PTR1, W0RK2, INDX2 

33 






34 






35 OBAO 

E4 


CLRLs 

CLR 

A 

.36 OBAl 

"i : r 

.0503 


lcaLl 

CLA ? Calculate address 

37 0BA4 

74 

50 


MOV 

A, #NUMCHARS 5 80 characters 

. 33 ‘ DBA6 

75 

. F*d . 

00 

MOV 

B, #0 5 No attributes 

39 0BA9 

02 

100C 


LUMP 

R2-FILL * Fill with spaces and return 
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1 




;; 

CLRS - 

clear screen 


2 




; 

•b-CLRS# 

clears entire display 

except the 25th line. IF cursor 

'4 

5 




- 

i s o n 

the 25th line then Just 

the 25th line is cleared. 

6 




; 




7 




; 

ENTRY 

none 


8 

9 




* 

EXIT 

none 


id 




; 




11 




; 

USES 

al 1 


12 








13 








14 OBAC 

E5 

12 


CLRS: 

MOV 

A, YPOS 


15 OBAE 

B4 

18 

04 


CJNE 

A, #MAXLINE, CSl 

? IF ypos = 25th line THEN 

16 OBB1 

KS ' ' 

FO 



MOV 

B, A 

? setup for subroutine 

17 0BB3 

80 

EB 



SJMP 

CLRL 

? clear line and return 

18 








19 0BB5 

7C 

18 


CSl: 

MOV 

WORK, #NUMLINES~1 

? Get number of lines 

20 0BB7 

7A 

00 



MOV 

INDXi, #0 

5 Index for —LORDER— 

21 








22 0BB9 

8A 

FO 


CS2s 

MOV 

B, INDXI 

? REPEAT setup for cal 1 

23 OBBB 

71 

AO 



ACALL 

CLRL 

? to clear a line 

24 OBBD 

OA 




INC 

INDXI 

? bump indxl 

25 OBBE 

DC 

F9 



DJNZ 

WORK, CS2 

5 UNTIL work = 0 

26 








27 OBCO 

81 

36 



AJMP 

SCH 

? Set cursor home and return 

28 








29 








30 








31 








32 




;; 

CLFO - 

clear foreground 


33 




; 




34 




; 

*CLFO* 

clears entire display 

except for half intensity spaces. 





5 




36 




? 




37 




; 

ENTRY 

none 


38 

39 




. 

EXIT 

none 


40 




; 




41 





USES 

al 1 


42 








43 








44 0BC2 

75 

3F 

08 

CLFOs 

MOV 

PFIELD, #000010006 

? Make half intensity protected 

45 0BC5 

71 

AC 



ACALL 

CLRS 

* Clear screen 

46 0BC7 

75 

3F 

00 


MOV 

PFIELD, #0 

? Make nothing protected 

47 OBCA 

22 




RET 
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1 

;; 

EBL - erase from beginning of line 

2 

.3. 

* 

•H-EBL# erases from the beginning of the current line to the 

4 

? 

cursor. Cursor position does not change. 


6 * 

7...,. 1 ..ENTRY.none 


. 9. 






EXIT 

none 



10 










.11. 





5 

.USES.. 

A, B, DF'TR, TEMP 

, PTR1, 

W0RK2, INDX2 

12 










.13 










14 

OBCB 

E4 



EBL: 

CLR 

A 



.13 

QBCC 

85 

* 12 

FO 


MOV 

B, YPOS 



16 

OBCF 

12 

0503 



LCALL 

CLA 


• Calc address for <0,YPOS) 

.17. 

.030.2... 

...E.S..... 

.U. 



MOV 

A, XPOS 


? Get number of characters 

18 

0BD4 

04 




INC 

A 


5 to erase 

. 19 .. 

. QBR5... 

... 7.3 .... 

.... J-p.. 

....QO. 


MOV 

B, #0 


5 Clear attributes 

20 

0BD8 

02 

100C 



LUMP 

R2-FILL 


? Clear and return 

•~i i 










22 










.23. 










24 










.25 





? 7 

EEL - 

erase entire line 



26 





7 





..27. 





5 

*EEL* 

clears the entire 

line where the cursor resides. 

28 





7 

Cursor 

position does not 

change. 



29 

30 

,3.1. 

32 
33. 

34 

33 


36 

37 


38 OBDB 

85 

12 

FO 

eIeL: 

MOV 

B, YPOS 

? Get current position 

39 OBDE 

80 

CO 



SJMP 

CLRL 

! Clear line and return 


ENTRY.none. 

_EXIT.none_ 

USES A, Bj DPTR, TEMP, PTR1, W0RK2, INDX2 
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1 

7 7 

EOL - 

eras$ to end of line 


2 

9 

1 




3 

9 

7 

*EGL* 

erases from the cursor to 

the end of the current line. 

4 

• 

7 

Cursor 

position does not change. 


5 

7 




6 

7 




7 

m 

7 

ENTRY 

none 


8 

7 




9 

• 

7 

EXIT 

none 


10 

7 




11 

7 

USES 

A, B, DPTR, TEMP, PTR1, 

WORK2, INDX2 


12 

13 


14 OBEO 

15 

75 

FO 

00 

EOL: 

MOV 

B, #0 ? Clear attributes 


16 0BE3 

74 

50 


EOL 1: 

MOV 

A, #NUMCHARS ‘ Calculate number 

to erase 

17 0BE5 

C3 




CLR 

C 


18 QBE 6 

95 

11 



SUBB 

A, XROS 


19 QBE3 

85 

14 

82 


MOV 

DPL, LINADL 5 Get line address 


20 OBEB 

85 

13 

83 


MOV 

DPH, LINADH 


.21. OBEE... 

...02.... 

. X OQQ .. 



LUMP 

R2-FILL ? Erase to end and 

return 

22 








.23. 








24 








25 








26 




; 5 

EBD - 

erase from beginning of display 


27 




7 




28 




5 

#EBD* 

clears the screen from -HOME*' position to the 

current 

29 




? 

cursor 

position. The exception is the 25th line. 

Cursor 

30 




7 

position does not change. 


.3.1.. 




7 




32 




m 




.33. 




■ 

ENTRY 

none 


34 




7 




.35. 





. EXIT. .. 

...A9A*. 


36 




? 




37 




; 

USES 

A, B, DPTR, TEMP, PTR1, INDX1, WQRK2, INDX2 



38 

35? 


40 

. 41 

42 

.4.3 

OBF1 
0BF.3. . . 
0BF6 

E5 

. .B.4 _ 

80 

12 

....13.... 

D3 

....02.... 

EBD: 

MOV 

. .CONE ... 

SUMP 

A, YPOS 

A, #MAXLINE, EB1 

EBL 

? 

IF 25th line THEN 

erase just this line 

44 

0BF8 

7A 

00 


EB1: 

MOV 

INDX1, #0 

a 

7 

Start at top 

.45 

.QBF.A... 

...E5.... 

....12.... 


.EB2:. 

MOV 

A, YPOS 

a 

7 

REPEAT ...... 

46 

OBFC 

B5 

02 

02 


CJNE 

A, INDX1A, EB3 

7 

IF index = current THEN 

.4.7. 

.QBFF. .. 

... 30 . 

....CA. ... 



SUMP 

...EBL . 

m 

7 

erase up to cursor 

48 










. .49. 

.P.CPA... 

.. .3A _ 

.. .FQ 


EB3: .. . 

MOV 

B, INDX1 

7 

ELSE set up and 

50 

0C03 

71 

AO 



ACALL 

CLRL 

m 

7 

clear entire line 

51 

0C05 

OA 




INC 

INDX1 

a 

7 

bump index counter 

52 

0C06 

80 

F2 



SUMP 

EB2 


UNTIL forever 
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1 





?? 

EED “ 

e 

rase to end of d i s p 1 a y 

2 





" 

#EED* 

c 

lears the screen from the current cursor position to 

4 

ESj 






the e 

nd 

of the screen. Cursor pos ition does not change. 

6 

7 





; 

ENTRY 


none 

8 

9 





* 

EXIT 


none 

.10 









11 





; 

USES 


A) B, DPTR, TEMP* PTR1, INDXI, W0RK2, INDX2 

12 

13 

14 

OCOS 

71 

EO 


EEDs 

ACALL 


EOL ? Clear to end of line 

15 

OCOA 

AA 

12 



MOV 


INDXI, YPOS " Set loop counter 

16 

OCOC 

OA 



EE 12 

INC 


INDXI ? REPEAT bump to next line 

17 

OCOD 

BA 

18 

00 


C.JNE 


INDXI, #MAXLINE, EE1A 

18 

0C10 

50 

06 


EElAs 

.JNC 


EER ? IF end of disp THEN exit 

19 

OC12 

8 A 

FO 



MOV 


B, INDX1 * get line to clear 

20 

OC14 

71 

AO 



ACALL 


CLRL ? clear line 

21 

OC 16 

80 

F4 



SJMP 


EE1 ? UNTIL forever 

22 

0C18 

22 



EER: 

RET 



23 










24 


26 









27 





? ? 

HEED - 

Hazel tine erase to end 

of display (with background) 

28 









29 





m 

7 

*HEED* 

clears the screen from 

the current cursor position 

30 





n 

7 

to the 

end of the screen with 

half intensity spaces. The 

31 





» 

7 

cur s o r 

position does not change. 

32 





? 




33 









‘' ‘34’ 
35 





5 

? 

ENTRY 

none 


. 36' 

37 





m 

7 

EXIT 

none 


38 

39 






USES 

A, B, DPTR, TEMP, PTR1 

, INDXI, WORK2, INDX2 

40 









41 

OC 19 

75 

FO 

08 

HEED! 

MOV 

B, #000010008 

? Get half intensity 

. 42 

43 

O'Ci 'C "' 

.. . rf .... 

£3 



ACALL 

'fe'co . 

’ Clear to end of line 

. 44' 

0C1E" 

AA 

. 12 . 



' MOV 

INDXi, YPOS 

? Set loop counter 

45 

0C20 

OA 



HEEl: 

INC 

INDX1 

• REPEAT bump to next line 

. 46' 

0C2T"" 

BA 

"18" 

"00 ' 


C*JNE 

INDXI, #MAXLINE, HEElA 


47 

0C24 

50 

F2 


HEElAs 

JNC 

EER 

*; IF end of disp THEN exit 

48 

0C26 " 

'£ '4 " " 




CLR 

A 


49 

0C27 

■8 A 

FO 



MOV 

B, INDXI 

" get line to clear 

. SO 

0C29" 

12 

. 0503' ' 



LCALL 

CLA 

? calculate line address 

51 

0C2C 

74 

50 



MOV 

A, #NUMCHARS 

? complete line 

52 

0C2E 

75 

FO 

08 


MOV 

B, #000010008 

" get half intensity 

53 

0C31 

12 

100C 



LCALL 

R2_FILL 

? fill with spaces 


'54 ‘ OC34 .SO .EA .S JMP . HEEl ... UNTIL ' f or ever 
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1 




; ; 

SCH - 

set cursor home 


2 




■ 

7 




3 




m 

7 

*SCH* 

places the cursor at line 

zero, column zero. 

4 




7 




5 




m 

7 




6 





ENTRY 

none 


7 




■ 

7 




“ ’' *d 




* 

7 

.EXIT" 

none 


9 




7 




.1‘0‘ 




a 

7 

USES 

A, DPTR, PtRl 


11 








. 12 








13 

0C36 

E4 


SCH: 

CLR 

A 


.14' 

6C37 

F5 " ' ’ 

li 


MOV 

XPOS, A . 

? Zero X-position 

15 

0C39 

F5 

12 


MOV 

YPOS, A 

• Zero Y-Position 

' . i‘6' 

‘6E3B *' 

"21. 

F4 . 


' AJM'P 

xb'Qnad 

• Updata address and return 

17 








.l£f 








19 








20 








21 




? ? 

PBS - 

perform back space 


'22 




? 




23 




5 

CLFT - 

cursor left 


24 




; 




25 




• 

7 

*PBS* 

- *CLFT* steps the cursor 

one position to the left, but 

26 




7 

does not wrap around to the previous line after reaching 

27 




7 

columr 

zero. 


28 




m 

7 




29 




• 

7 

ENTRY 

none 


30 




• 

7 




31 




7 

EXIT 

none 


32 




m 

7 




33 




» 

7 

USES 

A, DPTR, PTR1 


34 








35 








36 


0C3B 


PBS 

EQU 

i 


37 


0C3D 


CLFT 

EQU 

$ 


38 

0C3D 

E5 

11 


MOV 

A, XPOS 

; Get X-position 

39 

0C3F 

70 

01 


JNZ 

PBS1 

5 IF -XPOS- is zero THEN 

40 

0C41*' 

22 



RET 


? return 

41 








42 

0C42 

15 

11 

PBS is 

DEC 

XPOS 

; ELSE decrement -XPOS- 

43 

0C44 

21 

F4 


AJMP 

XBLINAD 

» build address and return 
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1 




?* 

AOLFT - 

ANSI cursor left 

3 




l 

s-ACLFT* 

moves the cursor towards the beginning of a Tine 

4 




s 

the specified Pn number of times- 

6 

7 




* 

ENTRY 

none 

8 

9 




1 

EXIT 

none 

10 

11 




7 

7 

USES 

A, DPTR* INDX1, F'TRl 

12 

13 

14 0C46 

15 0C48 

31 

70 

D1 

01 


ACLFTs 

ACALL 

JNZ 

GNF’ V Get parameter 

ACLO • IF no parameters or 0 THEN 

16 0C4A 

17 

04 




INC 

A ? bump to i 

18 0C4B 

19 0C4C 

FA 

91 

3D 


ACL Os 

ACL s 

MOV 

ACALL 

INDXl? A ; Set up index 

CLFT ? REPEAT move cursor left one 

20 0C4E 

21 0C50 

DA 

22 

FC 



DJNZ 

RET 

INDXl 7 ACL ! UNTIL count = 0 

22 

23 

24 

25 

26 

27 




m 

7 

HOLFT - 

Hazel tine cursor left 

28 

29 




m 

7 

7 

*HCLFT* 

around 

steps the cursor one position to the left and wraps 
to the previous line after reaching column zero- 

36 

31 




it 

7 

; 



. ’ '32 

33 




? 

? 

ENTRY 

none 

34 

35 




* 

7 

7 

. EXIT 

hone 

. 36" ' 

37 




m 

7 

’ USES'' ■ 

A," DPTR ,"PTRl‘ , TEMP . 

' ' '' 

39 0051 

E5 

11 


HCLFTs 

MOV 

A, XPOS 5 Get X-position 

40 6053’" 

41 0055 

' ’ 70. 

AD 

03 

12 



•JNZ 

MOV 

CLFT ? IF not zero’ THEN use *CLPT* ’ ’ ’""""' 

TEMP, YPOS ? Save Y-position 

4 2 "0057" 
43 0059 

91 

E5 

’ 36 

12 



ACALL 

MOV 

CUP ; Move cursor up 

A 7 YPOS 

.'44' 0C5B 

45 0C5E 

'' B5. 

"05"" 

’'' 01 '' *' 


.CONE’'' 

RET 

A 7 TEMPA? HuLFTl 7 IF ypos did hot-change THEN 

? do nothing 

.46. 

47 0C5F 

75 

11 

4F 

HCLFTls 

MOV 

XPOS 7 #MAXCHAR 5 ELSE move to end of line 

.'48' *0062'' * 

" 2*1 . 

F4 



' AJMP 

XfeLiNAti ; update and return 
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1 




. . 

CRT - 

cursor risht 


2 





*CRT* 

moves the cursor right one 

column. If the cursor is in 

4 

ISj 





the last column then the cursor 

will not be advanced. 

6 




• 

7 




7 





ENTRY 

none 


9 





EXIT 

none 


10 




« 

7 




11 





USES 

A? DPTR 


12 

13 

14 0C64 

E5 

11 


CRT! 

MOV 

A* XROS 

? Get X-position 

15 0C66 

B4 

4F 

01 


CJNE 

A, #MAXCHAR, CRT1 

? IF end of line THEN 

16 0C69 

22 




RET 


? return 

17 








18 0C6A 

05 

11 


CRT is 

INC 

XPOS 

" ELSE bump position 

19 0C6C 

21 

F4 



AJMP 

XBLINAD 

‘ update and. retur.n 


20 

21 


22 

23 


24 

25 




<i 

7 

ACRT - 

ANSI cursor risht 

26 

27 

28 
29 




7 

ft 

7 

7 

ft 

7 

#ACRT* moves the cursor towards the end of the line 
the specified Pn number of times. 

30 

31 




5 

* 

7 

ENTRY 

none 

32 

.33 




ft 

7 

EXIT 

none 

34 




ft 

7 

USES 

A? DPTR 7 INDX1 

36 

37 

0C6E 

31 

D1 

ACRT s 

.ACALL.. 

..pNp;. ; Get parameter . . 

. 39 

0C70 

0C7? 

70 

04 

01 


JNZ 
l HQ 

ACR1 ? IF no parameter or 0 THEN 

A . ?.Lump. .t o.. 1 . 

40 

41 

.P.C73... 

...FA. 


ACR1: 

.MOV. 

INDXl? A " Set up index . ... 

42 

43 

0C74 

0C76 

91 

DA 

64 

FC 

ACR: 

ACALL 

.JDJNZ_ 

CRT ? REPEAT cursor risht one 

INDX1 7 ACR 5 IJNTIL c 0 u n t = 0 

44 

0C78 




RET 
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j.=3« 

.■JHMfr . 

ou«vo rHuc x 




.31 . 




..5.5 . 

. HCRT . - 

He^e.l t .i. o e. . s;vr.s o.r 

xt?h.t 



rt 





. *HCRT* 

moves . .the . curs ox- 

.risht 

.q o.e . .c o.l. urn o ... I .f. . t h e. . c.u r.s o.r . .is ... 


4 

.5 . 




; 

in the last column then 
. the. .next,.line,. 

the cursor moves to the beginning of 


6 

. 7 . 










8 

. 9. . 




? 

ENTRY 

none 




10 

.U. 

12 

. 13 .. 




? 

EXIT 

USES 

none 

A, DPTR, PTR1 




14 

. 15.P.C7S... 

16 0C7B 

. 17..P.C7E... 

18 0C80 

.1.9..QC82... 

...m . 

B4 

...m . 

91 

.. . £5. . 

..U. 

4F 

.12. . 

A8 

.12 . 

E6 

. HCRT-. 

MOV 
CJNE 
MOV .. 
ACALL 

. . MOV. . 

. A.,.. XPPS . 

A, #MAXCHAR, CRT 

..TJ5WPi..YRQS . 

CBN 

. A,. . YP.OS . 

....?.. .Qe.t. X~po£ it ion.... 

? IF not eol THEN use *CRT# 

... .5. . 3^ve. .Y.~p.ct5.ttton. 

? Move cursor down 


20 0C84 

.21 ..QCS7... 

B5 

...22. 

05 

01 


CJNE 

.RET. 

A, TEMPA, HCRT1 


5 IF xpos did not change THEN 
_ i .do.. nothing. 


22 

.23. .QC88... 

...7*i. 

,.n. 

... .00... 

.HCRT.1.5_ 

.MOV.. 

..XROS,..#0. 


_ 5. . ELSE. .fTi.Qv.e. .to. .be.si.DRi rs. 


24 0C8B 

21 

F4 



AJMP 

XBLINAD 


? update and return 
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1 





;; 

CUP ~ cursor up 


2 

3 





. 

•*CUP# moves the 

cursor up one line on the display. The 

4 





; 

c u r s o r 

may move 

out of but not into fixed regions and 

5 





; 

never past 1ine 

zero. 

6 





; 




7 





5 




8 

9 





5 

ENTRY 

none 


10 





; 

EXIT 

none 


11 





? 




12 





; 

USES 

A, DPTR» 

PTR1 

13 









14 









15 

OCSD 

E5 

12 


CUP: 

MOV 

A, YPOS 

; Get Y-position 

16 

0C8F 

60 

03 



JZ 

CUP1 

; IF top of screen THEN return 

17 

0C91 

..B5.... 

17 

01 


CJNE 

A, TSCROLL, CUP1A ? IF top of scroll region THEN 

18 

0C94 

22 



CUP1: 

RET 


" return 

19 









20 

0C95 

B4 

18 

01 

CURIA: 

CJNE 

A, #MAXLINE» CUPIB ? IF 25th line THEN 

21 

0C98 

...2.2.... 




RET 


.?.ret.MCA . 

22 









.23. 

0Q99... 

...1.5.... 

.12.... 


.... CUP1B:. 

.EEC. 

.. YPP.S. 

.\. ELSE. d.e c.. p.o ?.i t.i o.A. 

24 

0C9B 

21 

F4 



AJMP 

XBLINAD 

? update and return 

.25 









26 









. 27. 









28 









29 





? » 

ACUP ” 

ANSI cursor up 

30 





; 




.31.. 





» 

*ACUP* 

moves the 

. .qyr^o.r. .t.OMJ&C d the top of the di.sp.lav.. 

32 





; 

the specified Pn 

number of times. 

.33. 





? 




34 





; 




.3.5. 





- 

. ENTRY. 

.. r*.o n.e. 


36 





; 




.37. 





; 

. EXIT. .. 

.. n.on.<?. 


38 





? 




.39. 





; 

. USES... 

.. A.>.. JDP.TR.’. 

. INEXXi. .PT.R1. 

40 









..41. 









42 

0C9D 

31 

D1 


ACUP: 

ACALL 

GNP 

; Get parameter 

.4.3. 

.QC.9F... 

... .70. 

.01. 



JNZ 

ACUl 

.?.. .IF. .n.o. parameter . or. .0. .THEN. 

44 

OCA 1 

04 




INC 

A 

’ bum p to 1 

.45. 









46 

0CA2 

FA 



ACUl: 

MOV 

INDX1, A 

? Set up index 

47 

OCAS 

...9.1. 

.... 3D 


ACU: 

ACALL 

CUP 

* REPEAT cursor up <;<n<*. .1 ine. 

48 

OCAS 

DA 

FC 



DJNZ 

INDX1, ACU ? UNTIL count = 0 

.49. .QCA7... 

.. .22- 




..RET. 
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.1..CDN. .7. cursor, down. 

. 2 .;. 


3 





; 

*CDN* 

moves the cursor down one 

line on the display. The 

4 





7 

curs or 

mav move out of but not 

into fixed res ions and 

5 





? 

. silver 

past line 24. 


6 

7 





7 




8 





r 

ENTRY 

none 


9 





? 




10 





K 

EXIT 

none 


11 





7 




12 





• 

USES 

A, DPTR, PTR1 


13 









14 









15 

OCAS 

E5 

12 


CDN: 

MOV 

At YF’OS 

; Get Y-position 

16 

OCAA 

B4 

18 

01 


CJNE 

A, #^fAXLINE» CDN 1 

? IF 25th line tHEN return' 

17 

OCAD 

22 




RET 

, 


18 









19 

OCAE 

B4 

17 

01 

CDN1: 

CJNE 

A» #MAXLINE~1, CDN2 

? IF 24th line THEN return 

20 

OCB1 

22 




RET 



21 









22 

0CB2 

04 



CDN2: 

INC 

A 

? Bump value 

23 

0CB3 

B5 

CO 

01 


CJNE 

At BFIX, CDN3 

; IF scroll region THEN return 

24 

0CB6 

22 




RET 



25 









26 

0CB7 

05 

12 


CDN3: 

INC 

YPOS 

? ELSE bump position 

27 

0CB9 

21 

F4 



AJMP 

XBLINAD 

; Update and return 

28 









29 









30 









31 









32 





? ? 

ACDN - 

ANSI cursor down 


33 





5 




. 34 





• 

7 

*Acdn* 

moves the cursor toward 

the bottom of the display 

35 





? 

the specified Pn number of lines. 

36 





7 




37 





7 




38 





; 

. ENTRY 

none 


39 





; 




40 





? 

Exit ' 

none 


41 





; 




42 





? 

. uses " 

“A',“'DPtR, fNDXl, F'TRl 


43 









. “44 









45 

OCBB 

31 

Dl 


ACDN : 

ACALL 

GNP 

; Get parameter 

. 46' 

OCBD' 

“70 . 

* * o 'i'. 



JNZ ' * 

“ A'CDl 

? IF no parameters or 0 THEN 

47 

OCBF 

04 




INC 

A 

• bump to 1 

''' ‘46 









49 

OCCO 

FA 



ACD1 : 

MOV . 

INDX1 * A 

? Set up index 

.'*.50 

tfCCi" 

* 9i 

. AS . 


“ “ ACC: . 

. ACALL' ' 

CDN . 

? REPEAT cu rsor dbwh one line 

51 

0CC3 

DA 

FC 



DJNZ 

INDX1, ACD 

? UNTIL count = 0 

. 52 * 

OCd 5‘ 

22 




. net . 
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1 ;" APBT - ANSI perform back tab 

2 .?. 

3 “ *APBT* moves the cursor back the number of tab stops indicated. 


4 

.5 


6 




7 

ENTRY 

none 



7 




7 





8 




? 

EXIT 

none 



9 




; 





10 




; 

USES 

al 1 



11 









12 

13 0CC6 

31 

D1 


APBT: 

ACALL 

GNP 

• 

Get parameter 

14 0CC8 

70 

01 



•JNZ 

APBT 1 

? 

IF no parameter or 0 THEN 

15 OCCA 

04 




INC 

A 

• 

bump to 1 

16 

17 OCCB 

CO 

EO 


APBT 1: 

PUSH 

ACC 

? 

REPEAT 

13 OCCD 

12 

0602 



LCALL 

BTAB 

? 

perform back tab 

19 OCDO 

DO 

EO 



POP 

ACC 



20 0CD2 

D5 

EO 

F 6 


DJNZ 

ACC 7 APBT1 

; 

UNTIL count = 6 

..2.1...QCR5... 

...22..... 




RET 
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Z . COMPUTER. .TERMINAL .FIRMWARE 

VERSION.!., 0.3. 




1 






CUA - 

cursor addressing routine 


2 





; 

*CUA* 

does dirert cursor addressing for a few emulation modes. 

4 





; 




6 

7 





. 

ENTRY 

none 


o 

9 





. 

EXIT 

none 


10 

11 





5 

USES 

al 1 


12 

13 

0CD6 

11 

2 A 


CUAs 

ACALL 

SETDISP ? 

Set dispatch and return 

14 

15 

0CD8 

75 

16 

04 


MOV 

DSADRL, #LOW (CUC) ? 

Next dispatch address 

16 

OCDB 

75 

15 

00 


MOV 

DSADRH 7 #HIGH (CUC) 


17 

OCDE 

30 

43 

11 


JNB 

HAZ, CUBO ? 

IF Hazel tine THEN 

18 

OCE1 

B4 

60 

00 


CJNE 

A, #96 i CUA1 


19 

0CE4 

40 

02 


CUA1: 

JC 

CUA2 ; 

IF value >= 96 THEN 

20 

OCE 6 

94 

60 



SUBB 

A, #96 ; 

subtract offset 

21 

OCE 8 

B4 

50 

00 

CUA2: 

CJNE 

A? #NUMCHARS, CUA2A 


22 

OCEB 

40 

02 


CUA2A8 

JC 

CUAS 

IF value >= numchars THEN 

'"’3 

OCED 

74 

4F 



MOV 

A, #MAXCHAR ? 

move to end of 1 ine 

24 

OCEF 

SO 

2F 


CUAS 5 

SJMF* 

CUR2 ? 

update and return 

25 









26 

OCF1 

22 



CUR! 

RET 



27 









28 

0CF2 

C3 



CUBOs 

CLR 

c 


29 

OCF 3 

94 

20 



SUBB 

A, #•- •' ; 

ELSE subtract offset 

30 

OCF 5 

40 

FA 



JC 

CUR ? 

check for lower bounds 

31 

OCF 7 

B4 

18 

04 


CJNE 

A* #MAXLINE, CUB 1 ! 

check for upper bounds 

32 

OCF A 

30 

15 

F4 


JNB 

L25EN 7 CUR 

IF 25th disabled THEN ret 

33 

OCFD 

03 




SETS 

C ! 

ELSE fall through 

34 

OCFE 

50 

FI 


CUB 1: 

JNC 

cur ; 

IF upper bounds ok THEN 

35 

ODOO 

F5 

12 


CUR 1! 

MOV 

YPOS 7 A ? 

replace Y-position 

36 

0D02 

21 

F4 



AJMP 

XBLINAD ? 

build line address 

37 









38 

0D04 

11 

2F 


CUC! 

ACALL 

SETNORM 

Next dispatch address 

39 

0D06 

30 

43 

OB 


JNB 

HAZ 7 CUCO ? 

IF Hazel tine THEN 

40 

0009 

54 

IF 



ANL 

A, #0001 ill IB 5 

do mod function 

41 

ODOB 

B4 

18 

00 


CJNE 

A, ttMAXLINE, CUC1 


42 

OBOE 

40 

02 


CUC1: 

JC 

CUC 1A 

IF value >« 24 THEN 

43 

0010 

74 

17 



MOV 

A, #MAXLINE-1 5 

move to last line 

"44' 

45 

0 til 2 " 

SO 

EC 


CUC1A! 

SJMF* 

CUR 1 ; 

update and return 

46 

0D14 

C3 



CUCO! 

CLR 

C 


47 

0015 

94 

20 



SUBB 

a, #•- 

Subtract offset 

48 

0017 

40 

05 



JC 

CUC2 ? 

Che ck f or 1 ower bou nds 

49 

0019 

B4 

50 

00 


CJNE 

A, #NUMCHARS, CUCOA 


50 

001C 

40 

02 


CUCOA: 

JC 

CUR 2 5 

Check for upper bounds 

51 

00 IE 

74 

4F 


CUC 2! 

MOV 

A, #MAXCHAR ; 

IF bad range THEN move to end 

52 

0020 

F5 

11 


CUR2: 

MOV 

XPOS, A ; 

Replace X-Position 

53 

0022 

21 

F4 



AJMP 

XBLINAD ? 

Build line address and return 
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1 





7 7 

DSR - 

define scrolling region 


2 

3 





. 

*DSR* 

defines the scrolling regions top and bottom line. 

4 






The region must be at least two 

lines long and can not include 

5 





; 

the 25th line. 


6 

7 





7 




3 

9 





7 

* 

7 

ENTRY 

none 


10 





; 

EXIT 

none 


11 





7 




12 

13 





7 

USES 

A, DPTR 


14 









15 

0D24 

31 

01 


DSR 2 

ACALL 

GNP 

? Get first parameter 

16 

0D26 

60 

01 



JZ 

DSRO 

? IF parameter and not 6 THEN 

17 

0D28 

14 




DEC 

A 

" normalize to 0..24 

18 









19 

0D29 

B4 

17 

00 

DSROs 

CJNE 

A, #MAXLINE-1, DSROA 


20 

0D2C 

50 

02 


DSROAs 

JNC 

DSR1 

5 IF top >= 22 THEN 

21 

0D2E 

F5 

17 



MOV 

TSCROLL, A 

? change value 

22 









23 

0D30 

31 

01 


DSR1 s 

.ACALL 

GNP 

; Get next parameter 

24 

0D32 

60 

01 



JZ 

DSR 1A 

5 IF parameter and not 0 THEN 

25 

0D34 

14 




DEC 

A 

5 normalize to 0..24 

26 









.27 

0035 

B5 

17 

01 

DSR1A: 

CJNE 

A, TSCROLL, DSR2 


28 

0038 

03 




SETB 

C 

? IF bottom = top OR 

29 









30 

0D39 

40 

05 


DSR22 

JC 

DSRERR 

? IF bottom < top OR 

. 3 . 1 . 

0033... 


18 

00 


.CJNE.. 

. . A,. #MAXLINE,. DSR2A. 


32 

0D3E 

40 

02 


DSR2A 2 

JC 

DSROK 

? IF bottom >= 25 THEN error 

. 3.3 . 









34 

0D40 

74 

17 


DSRERR2 

MOV 

A, #MAXLINE-1 

? Default error value 

. 35 . 

.00.42... 

...04..... 



DSROK2 

INC 

A ... 

; Bump for top of bottom fixed 

36 

0D43 

F5 

18 



MOV 

BFIX, A 

5 Save value 

. 37 

0D45 .. 

81 

36 



AJMP 

SCH 

• Set cursor home and return 
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1 





5 7 

PIL - 

perform insert line 


si 

3 





l 

*FIL* 

inserts a blank line at 

the cursor position after 

4 





• 

7 

moving 

the remaining lines down one line. Everything is 

5 





; 

done relative to the .region the cursor is in? top fixed? 

6 





; 

bottom 

fixed? 25th line? or s 

moiling region. No region 

7 





; 

outside of the current region 

is effected. The cursor is 

8 

9 





7 

moved 

to the beginning of the 

current line. 

10 





7 




11 





; 

ENTRY 

none 


12 





• 

7 




13 





? 

EXIT 

none 


14 





; 




15 





7 

USES 

al 1 


16 








' 

17 









18 

0D47 

CO 

12 


PILs 

PUSH 

YPOS 

? Save values 

19 

0D49 

CO 

17 



PUSH 

TSCROLL 


20 

0D4B 

CO 

18 



PUSH 

BFIX 


21 

0D4D 

E5 

12 



MOV 

A, YPOS 

? Get position 

22 

0D4F 

B5 

17 

00 


CJNE 

A? TSCROLL? PILA 

? IF upper fixed region THEN 

23 

0D52 

40 

21 


PI LAs 

JC 

PILRTl 

? Just return 

24 

0D54 

15 

18 



DEC 

BFI X 


25 

0D56 

B5 

18 

07 


CJNE 

A? BFIX ? PIL1 

? IF last line scrolling region 

26 

0D59 

85 

12 

FO 


MOV 

B? YPOS 


27 

0D5C 

71 

96 


PI LOs 

ACALL 

CLRLINE 

? Just clear the line 

28 

0D5E 

80 

12 



.S JMP 

PILRET 


29 









30 

0D60 

40 

08 


PILls 

JC 

PIL2 

? IF lower fixed THEN 

31 









32 

0D62 

B4. 

18 

10 


CJNE 

A? #MAXLINE? PILRTl 

? IF not 25th line THEN return 

33 

0D65 

75 

FO 

18 


MOV 

B? #MAXLINE 

? ELSE clear 25th line 


' *34' 0d68.80.F2.SJMP.PILO. ?.arid return 

35 


36 0D6A 

■ * os . 

•18. 


PIL2: 

INC 

BFI X 


37 0D6C 

85 

12 

17 


MOV 

TSCROLL? YPOS 

? Insert line uses 

38 0D6F 

39 

12 

0518 



CALL 

PRLF 

? Reverse line feed routine 

40 0D72 

‘ ' 7S . 

11 

00 

PILRET! 

MOV 

XROS, #6 

» Move to beginning of line 

41 0D75 

DO 

18 


PILRTl: 

POP 

BFI X 

5 Restore values 

42 C)£i77 

DO 

17 



POP 

TSCROLL 


43 0D79 

DO 

12 



POP 

YPOS 


.'44' 0d7B ' *' 

‘2T . 

. F4 . 



A JMP 

XBLINAD 

? Build line address and return 
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1 




APIL - 

ANSI perform insert line 


■f 



\ 

*APIL* 

inserts the specified Pn 

number of lines at the 

4 

cr f 



l 

current 

cursor position. 


6 



; 




7 



; 

ENTRY 

none 


8 



5 




9 



; 

EXIT 

none 


. TO . 



; 




11 



; 

USES 

al 1 


12 







13 







14 0D7D 

31 

D1 

A'Pi'Ls 

acaLl- 

GNP 

? Get next parameter 

15 0D7F 

70 

01 


•JNZ 

APILO 

? IF no parameter or 0 THEN 

16 OtfSi 

'04 



INC 

A 

? bump to 1 

17 







18 OtiS2 

FA 


APILOS 

MOV 

1NDX1 , A 

? Set up index 

19 0D83 

B1 

47 

APILls 

ACALL 

PIL 

* REPEAT insert one line 

20 0D85 

DA 

FC 


D-JNZ 

INDX1 7 APIL1 

? UNflL count - 6 

21 0D87 

22 



RET 
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i 





? ! 

• 

.RPL.n. 

perf orm . d e1 .et.e. .1 in e.. 

3 





? 

*F*DL* 

moves the remaining lines of the current region up 

4 





; 

one line, clears the last line of the region, and moves 

6 

7 





.!. 

.th.e. y.r;s.c.r..t.c«. .t.be.. b.<?SUnoi.np.. of. .the. .cu rrent. .1.i n?. ... 

8 

9 





7 

? 

ENTRY 

none 

10 

.11 





7 

EXIT 

none 

12 





; 

USES 

al 1 

13 








14 


4 





( 

15 

0D88. 

CO 

12 


PPM. 

.RUSH.. 

... Y.PO.S.5. .Save.. v.a.l.y e.s. 

16 

0D8A 

CO 

17 



PUSH 

TSCROLL 

17 

ODBC 

CO 

18 



PUSH 

...BFJ.*. 

18 

0D8E 

E5 

12 



MOV 

A, YPOS 5 Get current position 

19 

0D90 

F5... . 

FO 



.MOV.... 

... FU. A.?.. .Save.. i.t. X o.. (B). .also.. 

20 

0D92 

B5 

17 

00 


CJNE 

A, TSCROLL, PDLA 5 IF upper fixed THEN 

.21. 

QP 9 5 . 

.. .40..... 

. JOE.. 


. f:pla ». 

.J.C. 

.. .PILRTX...*..j.ys.t. .return. 

22 

0D97 

04 




INC 

A 

. 29 

.0.09.0... 

...K5. 

.IP.. 

... .04.. 


.CONE... 

... A,.. JBFIX.,.. PDLl.\. .IF.. Las.t. .1. Lne. .o.f. jscro.ll. .THEN. 

24 

0D9B 

71 

96 


PDLO: 

ACALL 

CLRLINE ? clear current line 

25 

.od?o... 

80 

D : 3.. 



.SUMP.. 

. ..P.ILRE.T.5.and..return . 

26 








.27 

.0D9.F. 

...40. 

08 


PDLl: 

.PC. 

... P.PL2.;.. IF.. b.9 Jt.t m. f. . .THEN.. 

28 

ODA1 

B4 

19 

D1 


CJNE 

A, #NUMLINES, PILRT1 ? IF 25th line THEN 

29 

0DA4 

75 

FO 

18 


MOV 

...St. #MAX.U.NF..5.s.Uac..?5th...Ur«.e. 

30 

0DA7 

80 

F2 



SJMP 

PDLO ; and return 

31 








32 

0DA9 

85 

18 

12 

PDL2S 

MOV 

YPOS, BFIX ; Put cursor above fixed 

33 

ODAC 

15 

12 



DEC 

YPOS 

34 

ODAE 

85 

FO 

17 


MOV 

TSCROLL, B 5 Get saved current line 

35 

0DB1 

12 

0561 



LCALL 

...P.LF.. . ? Line feed to simulate, delete . 

36 

0DB4 

A1 

72 



AJMP 

F'lLRET ? Return 
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1 


AF’DL - 

ANSI perform delete line 

........... 

; 




3 


*APDL* 

de1etes 

the specified Pn number of lines at and 

4 .* *... 


to 11 outing the 

cursor position. 

5 

; 




6 . - 
7 

i 

ENTRY 

none 


.. 

9 

] 

EXIT 

none 


.i’O.. . . . - •• • - 

; 




ii 

; 

USES 

A* B, 

DPTR, INDX1 


12 

13 


.1'4 

15 

’O0B6 ' 
0DB8 

31 . 

70 

“ " Dl. 

01 

.APDL5. 

.ACALL 

•JNZ 

GNp 

APDLO 


? Get parameter 
? IF no parameter or 0 THEN 

.16 

17 

ODBA'' ' 

“04. 



.INC. 

“A . 


; bump to 1 

. 1S‘ 

‘O0BB '' 

FA 


.APDLO's. 

.MtiV. 

TNDXi; 

"A. . 

; Set up index 

19 

ODBC 

B1 

SB 

AF’DL 1: 

ACALL 

PDL 


5 REPEAT delete one line 

20 

ODBE 

DA 

FC 


DJNZ 

TNDX'l'i 

APDLi 

" UNTIL count = 0 

21 

ODCO 

22 



RET 
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1.s. ?. .PIC .r..perf m .insert. character 


2 





; 




3 





; 

*PIC* 

move all characters that are at and to the right of 

the 

4 





; 

c u r s o r 

one column to the right. Cursor position does not 


5 





? 

change 

. 


6 

7 





? 




3 

9 





? 

ENTRY 

none 


10 





; 

EXIT 

none 


11 





; 




12 





; 

USES 

al 1 


13 









14 









15 

0DC1 

74 

50 


PIC: 

MOV 

A> #NUMCHARS ’ Calc number of moves to 

make 

16 

0DC3 

C3 




CLR 

C 


17 

0DC4 

95 

11 



SUBB 

A? XF'OS 


is 

0DC6 

FA 




MOV 

INDX1, A 


19 









20 

0DC7 

E5 

11 



MOV 

A t XPOS ? Get current address 


21 

ODC'9 

85 

12 

FO 


MOV 

Bt ypos 


22 

ODCC 

12 

0503 



L.CALL 

CLA 


23 









24 

ODCF 

78 

20 



MOV 

PTRIt #" ■" ? Init value for 1st slot 


25 

ODDI 

79 

00 



MOV 

PTR2, #0 


26 









27 

ODDS 

EO 



PIC1: 

MOVX 

A, GDPTR 


28 

ODD 4 

FC 




MOV 

WORK > A 5 Save lower character 


29 

0DD5 

53 

83 

EF 


ANL 

DPHt #ATRANL 


30 

odds' 

EO 




MOVX 

A, ©DPTR 


31 

0DD9 

FD 




MOV 

TEMPt A ? Save lower attribute 


32 









33 

0DDA 

E9 




MOV 

At PTR2 


34 

ODDB 

FO 




MOVX 

©DPTRt A ? Write lower attribute 


35 

ODDC 

43 

83 

10 


ORL 

DPHt #CHRORL 


36 

ob DF 

’' E8 




MOV 

A, F'TR 1 


37 

ODEO 

FO 




MOVX 

@DPTR» A ? Write lower character 


38 









39 

ODE 1 

AS 

04 



MOV 

PTRIt WORKA ? Exchange character 


40 

ODE-3 

A 9 

05 



MOV 

PTR2t TEMPA ; Exchange attribute 


41 









42 

ODES 

A3 




INC 

DPTR ? Bump up 


43 

ODE 6 

DA 

EB 



DJNZ 

INDX1, PIC1 ? UNTIL all done 


44 

'ODES'" 





RET 
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1 

. . 

APIC - ANSI perform insert character- 

o 

: 

*APIC* inserts the specified number of characters into 

4 


the 1ine. 

6 

; 


7 

; 

ENTRY none 

8 

? 


9 

7 

EXIT none 

10 



11 

? 

USES all 


12 

13 


14 

15 

0DE9 

ODEB 

31 

70 

D1 

01 

APIC: 

ACALL 

JN2 

GNP 

API CO 


? Get parameter 
; IF no parameter or 0 THEN . 

16 

17 

ODED 

04 



INC 

A 


? bump to i 

18 

OBEE 

FB 


APICOS 

MOV 

INDX2S 

A 

? Setup index 

19 

ODEF 

B1 

Cl 

APICl: 

ACALL 

PIC 


? REPEAT perform insert char 

20 

21 

0DF1 

0DF3 

DB 

22 

FC 


DJIMZ 

RET 

INDX2, 

APICl 

? UNTIL count = 0 
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1 




. 

PDC - 

perform delete character 

3 





*PDC* 

deletes the character 

at the cursor position bv movins 

4 




* 

•> 

the remain ins characters 

on 

the line to the left one column 

5 




..?.. 

. 4 H.d. .X n.s>£.r;t i ns. a. .s.p.ace.. .in. 

.the 

last column on the line. Cursor 

6 

7 





position does not change. 



<"• 

9 




; 

ENTRY 

none 



10 









11 




; 

EXIT 

none 



12 

13 




jj 

USES 

al 1 



14 









15 









16 

ODF 4 

74 

4F 

PDC: 

MOV 

A, #MAXCHAR 


? Calc number of moves 

17 

0DF6 

C3 



CLP 

c 



18 

ODF 7 

95 

11 


SUBB 

A, XPOS 



19 

0DF9 

FA 



MOV 

INDX1 7 A 



20 

ODF A 

74 

4F 


MOV 

A, #MAXCHAR 


’ Get address at end of line 

21 

ODF.C 

85 

12 

FO 

MOV 

B, ypos 



22 

ODFF 

12 

0503 


LCALL 

CLA 



23 

0 E 02 

EO 



MOVX 

A 7 QDPTR 



24 

0E03 

F 8 



MOV 

PTR'l 7 A 


; Save upper character 

25 

0E04 

74 

20 


MOV 

A, #•' •“ 



26 

0E06 

FO 



MOVX 

©DPTR, A 


* Clear iast character 

27 

0E07 

53 

83 

EF 

ANL 

DPH 7 #ATRANL 



28 

OEOA 

EO 



MOVX 

A, QDPTR 



29 

OEOB 

F9 



MOV 

PTR2 7 A 


* Save upper attribute 

30 

' OEOC 

E4 



CLR 

A 



31 

OEOD 

FO 



MOVX 

QDPTR, A 


; Clear last attribute 

32 

OEOE 

EA 



MOV 

A, INDX1 



33 

OEOF 

60 

20 


■JZ 

PDC 2 


? Exit out if last column 

34 









35 

0 E 11 

E5 

82 

PDCl: 

MOV 

A, DPL 


? Decrement DPTR without 

36 

0Ei3 

■ ‘ ‘24 

.FF. 


ADD 

A, #-l 


! Us ins a -CLR C~ 

37 

OE15 

F5 

82 


MOV 

DPL, A 


5 Instruction to save 

38 

OE17 

E5 

83 


MOV 

A, DPH 


? Every bit of time 

39 

OE 19 

34 

FF 


ADDC 

A, #-l 



40 

OE 1B 

F5 

03 


MOV 

DPH 7 A 



41 









42 

OE i D 

EO 



MOVX 

A, ©DPTR 



43 

OE 1E 

FD 



MOV 

TEMP 7 A 


, Save lower attribute 

44 

0 E 1 F 

43 

83 

io 

ORL 

DPH ? #CHR0RL 



45 

0 E 22 

EO 



MOVX 

A, @DPTR 



46 

0E23 

FC 



MOV 

WORK 7 A 


5 Save lower character 

47 









48 

0E24 

E 8 



MOV 

A, PTR1 



49 

0E25 

FO 



MOVX 

©DPTR, A 


5 Write character 

50 

0E26 

53 

83 

EF 

ANL 

DPH, #ATRANL 



51 

0E29 

E9 



MOV 

A, PTR2 



.52' 

0E2A 

''' FO. 



MOVX 

@DPTR, A 


“ Write attribute 

53 









54 

0E2B 

A 8 

04 


MOV 

PTR1, WORKA 


? Exchange character 

55 

0 E 2 D 

A 9 

05 


MOV 

PTR2, TEMPA 


? Exchange attribute 

56 

0E2F 

DA 

EO 


DJNZ 

INDX1, PDCl 


? UNTIL all done 

57 

0E31 

22 


PDC2: 

RET 
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1 




? ? 

APDC - 

ANSI perform delete character 

2 








3 





*APDC* 

deletes the specified number of characters from the 

4 

CJ 




\ 

1 ine. 



6 




; 




7 





ENTRY 

none 


8 




; 




9 




? 

EXIT 

none 


io 








u 




; 

USES 

all 


12 








13 








i'4 

0E32 

31 

£i 1 

APDC: 

ACALL 

GNP ? 

Get parameter 

15 

0E34 

70 

01 


•JNZ 

AF’DCO ? 

IF no parameter or 0 THEN 

.16 

0E36*'' 

" 0‘4. 



INC 

A 

bump to i 

17 








.i‘8‘ 

d£3?'' * 

"F'B. 


apOco - 

MOV 

INDX2, A 

Setup index 

19 

0E38 

B1 

F4 

APDC 1 

ACALL 

pdc ; 

REPEAT pe rform delete char 

20 

0E3A 

DB 

FC 


DJNZ 

INDX2* APDC1 ? 

UNTIL count = 0 

21 

0E3C 

22 



RET 
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..1. 




? 7 

. j£P.SS8R.IPS..?«t..bau.d.r.^.te ....... . 

2 

3 





.*Z.DS.SB.R* . seis. the. baud rate of the UART bui.l t. . into the 8051* ..... 

4 




? 



... 5. 




* 

. ? .. 



6 

.. .7 





ENTRY 

none 

8 

9 




r 

EXIT 

none 

10 

11 





USES 

al l 

12 







13 

0E3D 

11 

2A 

ZDSSBR: 

ACALL 

SETEUSP • Set dispatch and return 

14 







15 

OE3F 

11 

2F 


ACALL 

SETNORM ; Restore dispatch address 

16 

0E41 

C3 



CLR 

C 

17 

0E42 

94 

40 


SUBS' 

A» ‘ Subtract offset 

18 

0E44 

40 

18 


J C 

SBRET * Check for lower bounds 

19 

0E46 

B4 

OE 00 

C.JNE 

a» # <-N">.7 zpso .. . j..C-he.ck.,f«:«r..upper.-,.bound? 

20 

21 

0E49 

50 

13 

ZDSOs 

JNC 

SBRET 

22 





IFC 

NE,SBR-* 

23 





. ERROR. 

.. TROUT I NE.SBR-;..MUST .FOLLOW. 

24 





ENDC 


25 







26 







27 







28 







29 




; ? 

SBR - 

set baud rate 

30 







31 




u 

7 

*SBR* 

selects a baud rate given the value of which rate to 

32 




• 

7 

se1ect 


33 




; 



34 




• 

7 



35 




m 

7 

ENTRY 

(A) = which baud rate (0..13) 

36 




m 

7 



37 





EXIT 

none 

38 




7 



39 




7 

USES 

A? DPTR 

40 







41 







42 

0E4B 

90 

0E5F 

SBR: 

MOV 

DPTR* #BRTAB ? Point to baud rate table 

43 

0E4E 

93 



MOVC 

A» @A+EtPTR ? Get value from table 

44 

0E4F 

60 

6 b 


.JZ 

SBRET ? IF zero THEN exit 

45 

0E51 

F5 

33 


MOV 

BAUDRATE, A ? Save baud rate 

46 

0E53 

F5. 

80 


MOV 

TH1* A ? Change baud rate 

47 

0E55 

C2 

9F 


CLR 

SMO ? Place UART into mode 1 

48 

0E57 

B4 

53 00 

CJNE 

A 7 #83 7 SBRO 

49 

0E5A 

50 

02 

SBRO: 

JNC 

SBRET ; IF baud O 300 THEN 

50 

0E5C 

D2 

9F 


SETS 

SMO ? place UART into mode 3 

51 

0E5E 

22 


SBRET: 

RET 
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1 


;; 

BRTAB - 

baud .raff.. tab 1.£ 


o 

•-.« 


? 

*BRTAB* 

.contains. .th«. 

.val u.C5..far. .baud. rates. 

4 

5 






6 

7 

0E5F 

BRTAB 

EQU 

$ 


8 0E5F 

01 


DB 

1 

? 75 baud 

9 0E60 

Fi2 


DB 

82 

.?.. 110.. baud... 

.To' o&6i • ‘ 

80 


DB 

128 

; 150 baud 

11 0E62 

CO 


DB 

.1 ?2. 

.5.. 3.00.. b.au.d. 

12 0E63 

EO 


DB 

224 

? 600 baud 

13 0E64 

FO 


DB 

240 

.. 1.200. .baud. 

14 0E65 

F5 


DB 

245 

? 1800 baud 

15 0E66 

00 


DB 

0 

.5..200.0. .ba.ud.. 1 n o.t. availab. 1 &i. 

16 0E67 

F8 


DB 

N 

4a 

CO 

? 2400 baud 

17 0E68 

00 


DB 

0 . 

..?.. 3.60.0. .baud.. .(.no.t. ay.ai.lab la).... 

18 0E69 

FC 


DB 

252 

? 4800 baud 

19 0E6A 

00 


DB 

0 

.5. .720.0. baud..(no.t. avai Lab.le.l. 

20 0E6B 

FE 


DB 

254 

? 9600 baud 

21 0E6C 

FF 


DB 

255 

.5.. 1.92.00.. baud. 
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. X 





? ? 

. PSOF . - 

put string in output FIFO 


2 

. 3 

4 

. 5 





7 

u 

? 

7 

*PS0F* places the character string 
the output FIFO. Final character 

pointed to hr DPTR into 
has bit seven set. 

6 

. 7 





• 

7 

• . * 8 . . 

. entry . 

(DPTR) = start of string 


8 





» 

7 




...2 





7 

EXIT 

none 


10 





u 

7 




. 11. 





7 

USES 

A> B, DPTR 


12 

13 . , . . 

14 

0E6D 

E4 



PSOFs 

CLR 

A ? 

REPEAT 

. 15 

0E6E. .. 

93 




MOVC 

A, SA+DPTR 

get character 

16 

0E6F 

20 

E7 

OD 


JB 

ACC.7, SOR ; 

IF bit 7 set THEN exit 

.. 17 

QF72. .. 

... QP. _ 

82 



PUSH 

dpl ; 

save DPTR 

18 

0E74 

CO 

83 



PUSH 

DPH 


. 1.2 

.QE.76. .. 

...m..... 

. 06. .... 



ACALL 

CPR2 ? 

place character on FIFO 

20 

0E78 

DO 

83 



POP 

DPH ? 

restore DPTR 

. 21. 

.0E7A .. 

...DP.... 

. 82 .... 



POP 

..dpl . 


22 

0E7C 

A3 




INC 

DPTR 

bump pointer 

.23 

0E.7D. .. 

...80..... 

.... .EE .... 



. SUMP. .. 

. .P.SP.F .1. 

UNTIL done 

24 

.25 

PF7.F. .. 

...5.4 .... 

.... .7F. .... 


.... SOR!. 

ANL 

A» #7FH ; 

Mask off 7th bit 

26 

0E81 

80 

23 



SJMP 

CPR2 ? 

Place last char on FIFO 
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1 




. . 

CPR - 

cursor position report 



o 




7 

*CPR* 

outputs the cursor position 

in the format of the mode 

4 

5 




5 

currently set. 



6 

7 




; 

ENTRY 

none 



8 









9 





EXIT 

none 



10 









11 




; 

USES 

al 1 



12 









13 









14 0ES3 

30 

43 

11 

CPRs 

JNB 

HAZ ? CPRl 

; 

IF Hazel tine THEN 

15 0E86 

E5 

11 



MOV 

A, XPOS 

? 

get -xpos- 

16 0E88 

B4 

20 

00 


cJne 

A, #32? CPRO 



17 0E8B 

50 

02 


CPROs 

JNC 

CF'ROA 

• 

7 

IF value < 32 THEN 

18 0E8D 

24 

60 



ADD 

A? #96 

? 

normalize 

19 0E8F 

D1 

A6 


CPROAs 

ACALL 

CPR2 

7 

output valye 

20 0E91 

E5 

12 



MOV 

A? YPOS 

? 

get -ypos- 

21 0E93 

...24..,.. 

.60. 



ADD 

#96. 

■ 

7 

. ..normal.i?.^. 

22 0E95 

80 

OF 



SUMP 

CPR 2 

? 

output value and return 

23 









24 0E97 

90 

0EA9 


CPRl s 

MOV 

DPTR, #CPRM 

• 

7 

ELSE 

25 0E9A 

...Dl. 

6D 



.ACALL. 

PSOF 

7 

....output . ESC..Y .. 

26 0E9C 

E5 

12 



MOV 

A? YPOS 

• 

get line number 

27 0E9E 

24 

20 



ADD 

A, #- - 

; 

convert to ASCII . . 

28 OEAO 

Dl 

A6 



ACALL 

CPR2 

; 

output it 

29 0EA2 

E5 

11 



MOV 

A, XPOS 

7 

get column number 

30 0EA4 

24 

20 



ADD 

A? #- x 

? 

convert to ASCII ; 

31 0EA6 

... 02. 

022A 


CPR2: 

.JMP ... 

PCOF 

■ 

_output. .i t..and..ret.Mrn... 

32 









.33 0EA9 

IB 

D9 


CPRM! 

. . . DB 

ESC? (•' Y+80H) 

? 

ESC Y .. 
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1 





7 7 

IDT - 

identify terminal 

? 





. 

*IDT* 

identifies the terminal as a DEC VT52 so that existing 

4 





5 

DEC software which interrogates the console type will operate 

5 





; 

as it 

would with a VT52. 

6 





; 



7 





7 



8 

9 





7 

ENTRY 

none 

io 





7 

EXIT 

none 

11 





; 



12 

13 





5 

USES 

ai 1 

14 








15 

OEAB 

90 

OEBO 


IDT: 

MOV 

DPTR, #IDTM 

16 

OEAE 

Cl 

6D 



AJMP 

PSOF ? Output string and return 

17 








18 

OEBO 

IB 

2F 

CB 

IDTM: 

DB 

ESC, • (•'K ’’ +80H) ? ESC / K " " 

19 








20 








21 








79 








23 





;; 

IDTT - 

identify terminal type 

24 





; 



25 





? 

*IDTT* 

identifies the terminal as a Z-29 so that future 

26 





m 

7 

software can interrogate the console type and see what 

27 





m 

7 

version of the terminal is running. 

28 








29 





; 



30 





» 

7 

ENTRY 

none 

31 





* 



32 





; 

.EXIT' ‘ 

none 

33 





; 



.34' 





? 

USES 

all 

35 








36 








37 

0EB3 

11 

2A 


IDTT: 

ACALL 

SETDISP ? Set dispatch and return 

38 








39 

0EB5 

11 

2F 



ACALL 

SETNORM “ Restore dispatch address 

46 

0EB7 

B4 

.30. 

*' 6b " " 


CJNE 

A, #- 0 -, ZAFi ? IF not '0' THEN ret?urn. 

41 

OEBA 

90 

OEBF 



MOV 

DPTR, #IDTTM 

42 

0£bD‘ ’' 

“C:i. 

6D 



AJMP 

PSUF " Output string and return 

43 








. 44 ' 

0£BF‘ *' 

''' l'B' '' 

"69. 

"42"" 

ItiTTM: " 

" "bb. 



0EC2 

BO 
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1 





; ; 

ADA - 

ANSI device attributes 


. 

3 





5 

? 

*ADA* 

identifies the terminal as 

a DEC VT100 so that existing 

4 

5 





? 

EiEC software which interrogates 
as it would with a VT100. 

the console type will operate 

6 ? 

7 ; 

. 8' 

9 





; 

. ENTRY 

none 



10* 

11 





■ 

. £xtT 

none 



. 12 

13 






USES 

al 1 



. i'4 

15 

DEC 3 

31 

D1 


ADA: 

ACALL 

GNP 


? Get parameter 

' ' "16 
17 

'6EC5 '' 
0EC7 

"70""* 

90 

*""SE . 

OECC 



•JNZ 

MOV 

ZAR 

DPTR 

#ADAM 

? IF no parameter or 0 THEN 

.is 

19 

b£t: A'' ' 

t:i. 

6D 



AJMP 

PSOF 


, output string and return 

.2b' 

OECC 

OECF 

IB 

31 

5B 

3B 

3F 

32 

ADAM: 

DB 

ESC, 

'fc?i52 x , ( ■*c•“ +80H> 



0ED2.E3 
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.*** XrZ9 .. COMPUTER. TERMINAL. FIRMWARE. .VERSION. .1-03. . 

. . 1....?.?.7 TAB.. " .ZD'S. .ui.Qd.e. .tab.. .f.grictio.ns. 


3..5.*ZTAR* .d.oes.. the. .tab. . f.grtctmn. .requested. 

4 ; 


CSj 




5 . 




6 

.7 




? 

ENTRY 

none 


8 

. ?. 




7 

EXIT 

none 


10 

.1.1. 




" 

USES 

al 1 


12 

.13. 

.OE 0.3... 

...IX . 

...2A . 

.7IAB? ..... 

..AC.AUL,... 

SETPISR.5. 

.O.et. .dispatch. addre.se and return 

14 

.1.5. 

.0E05... 

...XX . 

... 2.F. 


.ACAUL... 

.SE.TIM.QRM..5. 

.R.es.tc».re. .d.is.Ra.tch. ad.dre.ea. 

16 

.17. 

0ED7 
.OEOA.. 

75 

.. .9Q . 

FO 

... P.EP.F... 

03 

MOV 

. MO.V . 

B, #ZTABTL 

DP.TR*.. # ZTABT. 


18 

.13 

OEDD 

01 

36 


AJMP 

STJMP ? 

•Jump to any routine 

20 

.21. 








.23. 





.ZT.AB.T. - 

.ZD.S. jrjo.de. .tab. .table. 


24 

. 2v« 




7 

• 

.7. . 

_ * ZTABT* 

contains. .val id. parameters. 

.f.or. .tbe. .set/clear. .tab . 

26 

. 27. 




7 

functions in ZDS mode. 


28 

.23. 

30 

..31. 

32 

33. 

.PEOF... 
OEEO 

...OEP.F... 

...30. 

0627 


. ZTABT . 

.EQ.U. 

. m. . 

DW 

$..... . 

TO:'..5. 

HTC 

.ESC.... .0. 

Horizontal tab clear 

34 

. .35. 

36 

37 

0EE2 
.PEES... 

GEE 5 

33 

0598 

38 



DB 

DW 

DB 

X o •- » 

GLRTAPS.5. 

? 

ESC . 3 

.Clear. .a.U..t aba . 

ESC . 8 

38 

39 

0EE6 

0621 



DW 

HTS ; 

Horizontal tab set 

40 


0003 


ZTABTL 

EQU 

<$-ZTABT)/3 ? 

Table length 
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*** Z~-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 



1 



7 > 

SCP - 

save cursor position 

z' 

3 



. 

*SCP* 

saves current cursor position. 

4 



; 



3 



7 



6 



; 

ENTRY 

none 

7 



? 



.&. 



? 

EXIT 

none 

9 



; 



'TO. 



; 

USES 

none 

11 






. 12 

13 DEE8 

85 

11 

35 SCPs 

MOV 

XXPOS, XPOS ; Save values 

14 OEEB 

85 

12 

36 

MOV 

X'YPOS, VPOS 

15 OEEE 

22 



RET 


.T6. 






17 






.18. 






19 






20 



? ! 

ASCP - 

ANSI save cursor position 

21 



7 



22 



; 

*ASCP* 

saves current position and attributes. 

23 



7 



24 



? 



25 



7 

ENTRY 

none 

26 



a 



27 



; 

EXIT 

none 

28 



? 



29 



m 

7 

USES 

al 1 

30 






31 






32 OEEF 

31 

D1 

ASCP 5 

ACALL 

GNF* ? Get parameter if anv 

33 0EF1 

40 

F5 


JC 

SCP ? IF no parameter THEN ok 

34 0EF3 

22 



RET 







































***:..Z 7.2?. COMPUTER.TERMINAL.F.IRWWAPE. VERSION.X,P.3. *** 


1 . 5.5 .U8CP . unsave . cursor.. pos. ition 


.2 





« . 









? 

*USCP* 

returns to position 

saved with the use of #8CP#. 

4 





7 




5 





; 




6 





; 

ENTRY 

none 


7 





; 




8 





5 

EXIT 

none 


9 





; 




10 





? 

USES 

al 1 


11 









12 









13 

0EF4 

85 

35 

ii 

USCP “ 

MOV 

XROS, XXPOS 

? Restore values 

14 

0EF7 

E5 

36 



MOV 

A,XYPOS 


15 

0EF9 

B4 

18 

03 


CJNE 

A, #MAXLINE, USCP1 

? IF on 25th line THEN 

16 

OEFC 

30 

15 

02 


JNB 

L25EN ? USCP2 

' IF not enah i ed THEN exi t 

17 

OEFF 

F5 

12 


USCP1: 

MOV 

YPOS, A 

* ELSE se t po sition 

18 

0F01 

2i 

F4 


USCP2? 

AJMP 

XBLINAD 

' build address and return 

19 









20 









21 









.*jfg * 









28 





?; 

AUS'CP - 

ANSI unsave cursor 

position 

24 





7 




25 





; 

*AUSCP* 

returns to position 

saved with the use of #SPGP#« 

26 





■ 

7 




27 





M 

7 




28 





« 

ENTRY 

none 


29 





M 

7 




.30' 





7 

EXIT 

none 


31 





7 




.32' 





7 

USES 

al 1 


88 









.3'4 









35 

OF 03 

31 

D1 


AUSCPs 

ACALL 

GNP 

? Get parameter if any 

86 

'6F05' *' 

'' '40. 

.Ed'"" 



Jc 

USBl>. 

? IF no parameters THEN ok 

37 

OF 07 

22 




RET 
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1 


; - 

ZATR - 

ZDS select attributes 


3 


! 

*ZATR* 

selects which attributes 

are to be turned on or off 

4 

5 


" 

us i ng 

the configuration of the 1 

lower 5 bits of the character. 

6 

7 


? 

ENTRY 

none 


8 

9 


? 

EXIT 

none 


10 

11 


. 

USES 

al 1 


12 

13 

14 0F08 

15 

11 

2 A ZATR: 

ACALL 

SETDISP 

? Set dispatch and return 

16 OF0A 

17 OFOC 

11 

C3 

2F 

ACALL 

CLR 

SETNORM 

c 

; Restore dispatch address 

18 OFOD 

19 OF OF 

94 

40 

30 

14 

SUBB 

JC 

A, #'0" 

ZAR 

“ IF below range THEN exit 

20 OF11 

21 OF14 

B4 

50 

20 00 

OF ZATRO: 

CJNE 

JNC 

A, #32, ZATRO 

ZAR 

• IF above ranse THEN exit 

22 OF 16 

23 OF17 

13 

92 

08 

RRC 

MOV 

A 

RVVA, C 

, Get reverse video 

24 OF19 

25 OF1A 

13 

92 

OA 

RRC 

MOV 

A 

BLINKA, C 

? Get blinking 

26 OF1C 

27 OFID 

13 

92 

OB 

RRC 

MOV 

A 

HALF!A, C 

? Get half intensity 

28 OFIF 

29 0F20 

13 

92 

09 

RRC 

MOV 

A 

IJNDLNA, C 

? Get underline 

30 0F22 

31 OF23 

13 

92 

oc 

RRC 

MOV 

A 

ALTCHARA, C 

? Get alternate char set 

32 0F25 
. .33 

22 

ZAR: 

RET 



34 

35 

36 

37 


? ? 

XATR - 

exit all attributes 


38 

. 39 . 


. 

*XATR* 

turns off all attributes 

so that none are active. 

40 

.4.1. 






42 

43 


.?. 

ENTRY 

none 


44 

.45. 



EXIT 

none 


46 

47 . 


* 

USES 

none 


48 

49 0F26 

53 

21 FO XATR: 

ANL 

ATTRIBUTES, #OFOH 

; Mask off all attributes 

50 0F29 

22 


RET 








































Z29R0M? MICROBENCH 8051 CROSS ASSEMBLER (VI)-218 24-FEB-83 15530:06 PAGE 144 

***.Zt29. .COMPUTER. TERMINAL. F. X.BMWAEE. .VERSION. .1,.03 .*.**.... 


1 




. -....\? . 

.EHALF 

enter half intensity mode 

2 







3 




; 

*EHALF* 

places the terminal, into half intensity mode. 

4 

.5. 




7 



6 

7 




5 

7 

ENTRY 

none 

8 

9 




7 

EXIT 

none 

10 

11 




7 

USES 

none 

12 

13 

0F2A 

D2 

OB 

EHALF: 

SETB 

HALFIA ? Set half intensity attribute 

14 

15 

0F2C 

22 



RET 


16 

17 

18 

19 




. . 

EUNDL - 

enter underline mode 

20 

21 




7 

■h-EUNDL* 

places the terminal into underline mode. 

22 




7 

7 



24 

25 




7 

7 

ENTRY 

none 

26 

27 




• 

7 

7 

EXIT 

none 

28 

29 




* 

7 

USES 

none 

30 

31 

0F2D 

D2 

09 

EUNDL: 

SETB 

UNDLNA ; Set underline attribute 

32 

33 

0F2F 

22 



RET 


34 

35 

36 

37 




7 7 

EBLNK - 

enter blink mode 

38 

39 




• 

7 

*EBLNK* 

places the terminal into blink mode 

40 

41 




7 

5 



42 

43 




* 

ENTRY 

none 

44 

45 




7 

EXIT 

none 

46 

47 





USES 

none 

43 

49 

0F30 

D2 

OA 

EBLNK 5 

SETB 

BLINKA ? Set blink attribute 

50 

0F32 

22 



RET 
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1 



. . 


ERVM - 

enter reverse video mode 


2 

3 





*ERVM* 

places the terminal into 

reverse video mode. 

4 

5 



\ 





6 

7 



; 


ENTRY 

none 


3 

9 



! 


EXIT 

none 


10 

11 



; 


USES 

none 


12 

13 

OF 33 

D2 08 

ERVM: 


SETS 

RVVA 

? Set reverse video attribute 

14 

15 

0F35 

22 



RET 



16 

17 

18 

19 



? 5 


XRVM - 

exit reverse video mode 


20 

21 



? 


*XRVM* 

removes the terminal from 

reverse video mode. 

22 

23 



. 





24 

25 



; 


ENTRY 

none 


26 

27 





EXIT 

none 


28 

29 





USES 

none 


30 

.31 

0F36 

C2 08 

XRVM: 


CLR 

RVVA 

? Clear reverse video attribute 

32 

OF 38 

22. 



RET 
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1 



? 5 

EGM - 

enter graphics mode 

jd 

3 



1 

#EGM* 

places terminal into graphics mode. 

4 






5 



? 



6 



; 

ENTRY 

none 

7 



; 



8 



; 

EXIT 

none 

9 



5 



10 



; 

USES 

none 

11 






12 

13 OF39 

D2 

OD 

EGM s 

SETS 

GR’PH ? Set graphics mode 

14 0F3B 

15 

22 



RET 


16 






17 






is 






19 



; ; 

XGM - 

exit graphic mode 

20 



; 



21 



; 

*XGM# 

exits the terminal out of graphic character mode. 

22 



? 






• 



24 



? 

ENTRY 

none 

25 



7 



26 



; 

EXIT 

none 

27 



? 



28 



; 

USES 

none 

29 






3d 

31 0F3C 

C2 

OD 

XGM: 

CLR 

GRPH ? Clear graphic mode 


.22.RET 
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*** Z—29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 




1 



. . 

CODES - 

GO designator 

2 



. 

GIBES - 

G1 desi 

gnat or 

4 



? 

•a-GODES# 

and #G1DES# assign a graphic character set to he 

5 



7 

associated with 

itself. If the character set is not found 

6 



; 

then no 

action 

is taken. The values returned for the 

7 



; 

different character sets are as follows: 

8 

9 



5 

Character I Internal 

10 



; 

received ! value and meaning 

11 



7 




12 



7 

A 

I 0 

- United States (should be United Kingdom) 

13 



; 

B 

! 0 

~ United States 

14 



? 

0 

S 1 

= United States with alternate graphic characters 

15 



; 

1 

• 2 

= Alternate character set 

16 



? 

2 

! 3 

- Alternate with alternate graphic characters 

17 



; 




18 



; 




19 



; 

ENTRY 

none 


20 



; 




21 



; 

EXIT 

. no n.e_ 


22 

23 



l 

USES 

.all. 


24 







25 







26 

0F3F 

11 

2A CODES: 

ACALL 

SETDISP 

? Set dispatch and return 

27 







20 

OF 41 

11 

2F 

ACALL 

SETNORM 

? Restore dispatch address 

29 

0F43 

C2 

.P.5. 

CLR 

FO 

" Flag for CODES 

30 

0F45 

80 

08 

SUMP 

GOES 

; Do the stuff 

.3.1., 







32 







.3.3. 







34 







. 35 

OF 47 

... 1 . 1 . 

2A SIDES: 

ACA1 L 

SET 02 SP 

“ Set di*patch and return 

36 

37 

OF 4 9 

11 

2 F 

ACALL 

SETNORM 

? Restore dispatch address 

38 

0F4B 

D 2 

D5 

SETS 

FO 

• Flag for GIBES 

39 

.QF.4.P... 

... 8 . 0 . 

.P.Q. 

.SUMP..... 

. ODES. 

‘ Do.the stuff 

40 







.4.1.. 







42 







.43. 







44 

0F4F 

B4 

41 03 GOES: 

CJNE 

A, # ' A•“ 

, GDESl ? IF char = 'A' THEN 

.4£ 

. OF52... 

...E.4. 

GDESO: 

CLR 

A 

* value of zero . 

46 

0F53 

80 

10 

SUMP 

GDES3 


... 4.7. 







48 

OF 55 

B4 

42 02 GDESl: 

CJNE 

A, # 'B•“ 

, GDES2 ? IF char = y B' THEN 

..4'?. 

.0 Fm ... 

.. .80 

fe; . . 

.SUMP. 

.C-i.DESO.... 

.... 5 . . ya.l ye of zero ... 

50 







51 

0F5A 

C3 

GDES2: 

CLR 

C 


52 

0F5B 

94 

30 

SUBB 

A, #-0-’ 

" Subtract offset 

5-3 

0F5D 

40 

.IB. 

JC 

GDESR 

? IF out of bounds THEN return 

54 

0F5F 

B4 

03 00 

CJNE 

A, #3 7 i 

GOES2A 

55 

0F62 

50 

16 GDES2A: 

JNC 

GDESR 

5 IF out of bounds THEN return 

56 

0F64 

04 


INC 

A 

? Bump into range 

57 










































7nun ? n .l t..r\»_«r.:>r_iMU-n 

... Z~29 COMPUTER TER 

1 0F65 20 

■ •_! x r\ i..fc* h c* •::< r. nr.-L_.ir. n 

:MINAL FIRMWARE VER: 

D5 09 

V V J. f -~a;i i O 

31 CM \,03 

^ - J~. £•_ ^ — C , J -1 i 

S'** 

. oui uo 

r huc i *+o 


GDES3S 

JB 

FO? ODESSA 

” IF for GO THEN 

2 

OF 6 8 

53 

IF 

FO 


AML 

GSET 

, ttllllOQOOB 

" clear old value 


0F6B 

42 

IF 



ORL 

GSET 

, A 

? put in new value 

4 

0F6D 

30 

12 

OB 


JNB 

OS EL 

? GOPICK 

? IF selected THEN pick it 

5 

OF 70 

22 




RET 



? ELSE return 

6 

7 

OF 71 

58 

IF 

OF 

ODESSAs 

ANL 

GSET • 

, #00001111B 

" ELSE clear old value 

8 

OF 7 4 

C4 




SWAP 

A 


? p1 ace into proper nibb1e 

9 

OF 75 

42 

IF 



ORL 

GSET. 

, A 

? p u t i n n e w v a 1 u e 

10 

OF 7 7 

20 

12 

07 


JB 

GSEL 

, G1PICK 

? IF selected THEN pick it 

11 










12 

0F7A 

22 



GDESRs 

RET 



? Return 
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1 



; ; 

GOPICK 

- pick GO graphic set 



2 

3 



l 

G1PICK 

- pick G1 graphic set 



4 



; 

*GOPICK* and *G1PICK* place the 

terminal into the mode 


5 



; 

indicated bv what has been set 

for the particular graphic 


6 

7 



l 

set. 




& 



; 





9 



; 

ENTRY 

none 



10 



? 





11 



; 

EXIT 

none 



12 



; 





13 



; 

USES 

al 1 



14 








15 








16 0F7B 

C 2 

12 

GOPICKs 

CLR 

GSEL 

? Clear select flag 


17 0F7D 

E5 

IF 


MOV 

A, GSET 

; Get graphic set chooser 


18 0F7F 

80 

05 


SUMP 

GPICK 



19 








20 OF81 

D2 

12 

GlPICKs 

SETS 

GSEL 

? Set select flag 


21 0F83 

.. .E.5. 

IF 


MOV 

A, GSET 



22 OF85 

C4 



SWAP 

A 

? Get graphic set chooser 


.23. 








24 OF 86 

53 

21 

4F GPICKs 

ANL 

ATTRIBUTES, #0100111 IB 

? Clean different modes out 


25 








26 0F89 

54 

OF 


ANL 

A, #0000111IB 

? Mask to get number of set 


.27. 








28 0F8B 

90 

0F92 


MOV 

DPTR, #GPICKT 

? Get address of table 


29 0F8E 

93 



MOVC 

A, ©A+DPTR 

5 Get value from table 


30 0F8F 

42 

21 


ORL 

ATTRIBUTES, A 

? Set as indicated bv table 


.3 1 . .QF.9.1,_ 

.. .22 . 



RET 





32 

33. 


34 

35 

36 

..37. 

38 

39 

40 

.41 



? 

GPICKT - graphic pick table 

*GPICKT# contains values that will be ORed into the 
attribute bvte to set the different character set modes 
as indicated bv the graphic mode defined above. 

42 

.43 


. .OF92 

DPICKT 

EQU 

$ 


44 

..45. 

.QF.92 ... 

.. .0.0. 


DB 

OOOOOOOOB ’ 0 - 

norm char 

46 

47 

0F93 

AO 


BB 

101OOOOOB 5 1 - 

norm char and alt graphic set 

48 

. 49. 

50 

51 

.P.F94... 

...10 . 


DB 

00010000B ? 2 - 

alt char set 

0F95 

BO 


DB 

1011OOOOB 5 3 - 

alt char and graphic set 
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Z-29 COMPUTER 7 
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.. 

1 



7? 

SBL.R - 

set blink rate 



3 



: 

*SBLR* 

sets the blink rate in 

increments of 1/30 second. The 


4 




default value is 32 /30 second 

If a value of 255 is received 


5 



; 

then a 

T1 blinking data is suppressed- If a value of O 


6 

7 



» 

is rec 

eived then all blinking 

data is continuously on. 


Q 



; 

ENTRY 

none 



10 



; 





11 



; 

EXIT 

none 



12 

13 



? 

USES 

al 1 



14 








15 








16 0F96 

31 

bi 

SBL.R8 

ACALL 

GNP 



17 OF98 

50 

02 


JNC 

SB1 

“ IF no parameter 7'HEN 


18 OF9A 

19 

74 

20 


MOV 

A? #32 

? set to default value 


20 0F9C 

F5 

37 

SB 1 s 

MOV 

BL-NkRATET A 

? Set blink rate 


21 0F9E 

60 

06 


•J2 

SB2 

? IF not zero THEN 


22 OFAO 

B4 

FF 

OC 

CJNE 

A, #255 7 SBRT 

" IF max va1ue THEN 


23 OFA3 

03 



SETS 

C 

; flag off and 


24 OFA4 

25 

SO 

01 


SUMP 

SB3 

5 set output 


26 0FA6 

27 

C3 


SB2 s 

CLR 

C 

? ELSE IF zero THEN flag on 


28 OFA7 

92 

01 

SB 3 “ 

MOV 

BLINKF, C 

? Set output of blink 


29 0FA9 

E5 

20 


MOV 

A? XLATCH 



30 OFAB 

• QQ ' 

3000 


MOV 

DPTRt #mLatcb 



31 OFAE 

FO 



MOV X 

@DPTRt A 

* Set latch 


32 

33 OFAF 

75 

38 

00 SBRTs 

MOV 

BLNKCNTt #0 

; Zero count and return 


. '34"0F82"" 

’ *2*2 ' 



RET 
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1 



? ’ 

EKI - 

enable keyboard input 

2 

3 



7 

*EKI* 

resets the flas which disables input from the keyboard. 

4 



; 



5 



; 



6 



; 

ENTRY 

none 

7 



; 



8 



; 

EXIT 

none 

9 



; 



10 



; 

USES 

al 1 

11 






i2 






13 0FB3 

C2 

IF 

EKI: 

CLR 

KBDISF 

14 0FB5 

74 

89 


MOV 

A, #kBC_EK ? Enabie keyboard 

15 0FB7 

61 

2 A 


AJMP 

XPCKB ? Output and return 

. IS . 





• 

17 






18 






19 






20 



7 7 

DKI - 

disable keyboard input 

21 



? 



22 



; 

*DK I * 

sets the flae which (disables input from the keyboard. 

23 



! 


1 

24 



; 



25 



; 

ENTRY 

none 

26 



; 



27 



; 

EXIT 

none 

28 



7 



29 



7 

USES 

al 1 

30 






31 






32 0FB9 

D2 

IF 

DKis 

SETB 

KBDISF 

33 OFBB 

74 

88 


MOV 

A t #KBC_DK ? Disable ke vboar d 

34 OFBD 

61 

2A 


AJMP 

XPCKB ? Output and return 
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1 

2 

3 





.KBC.PLK. -. kexfc A*r.d. .«;ap&. l.op.k. x:<?Mt.i r»s. 

.*KBCPLK*. t oggjes . t he . k ex board, i n t 0 .. an d.. 0 . u t.. 0 .£. .t he. .caps.. . 

4 

5 




7 

1ocked 

mode. 

6 

7 




7 

7 

ENTRY 

none 

8 

9 




? 

7 

EXIT 

none 

10 




m 

7 



11 




7 

USES 

A, DPTR 

12 







13 







14 OFBF 

B2 

35 


KBCPLKs 

CPL 

CAF’LOCKF * Toggle caps locked flag 

15 0FC1 

74 

84 



MOV 

A, #KBC_EL 

16 0FC3 

20 

O *J 

02 


JB 

CAPLOCKF 7 KCl 

17 0FC6 

74 

85 



MOV 

A, #KBC_XL 

18 0FC8 

71 

2A 


KC1 s 

.ACALL 

XPCKB ; Output command to keyboard 

19 OFCA 

61 

23 



A.JMP 

.. XR2-DISP.5. Di.sp.l ay. s t.at.y ?..} .1 ne . &. r.e.t. y.r n ... 
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1 





. . 

KBBREAK 

- keyboard break key 


3 





. 

*KBBREAK* iridicates that the 

break key on the keyboard has 

4 





$ 

been depressed. The terminal 

should then hold the serial 

5 





; 

output 

line low for a length 

of time. 

6 ; 

7 ; 

R 

C/ 





. 

ENTRY 

n o n e 


10 





; 

EXIT 

none 


11 





; 




12 





; 

USES 

al 1 


13 









14 









15 

OF CC 

C2 

B1 


KBBREAK: 

CLR 

TXD 

" Set break 

16 

OFCE 

7 A 

00 



MOV 

INDX1, #0 


17 

OF DO 

7B 

50 



MOV 

INDX2* #80 


18 

0FD2 

12 

02B6 


BR1: 

LCALL 

FCKB 

" REPEAT 1oo k a t k e yb oa r d 

19 

0FD5 

40 

05 



JC 

BR2 


20 

0FD7 

B4 

89 

02 


C-JNE 

A, #KB„BREAK, BR2 

IF another break THEN 

21 

OFDA 

...80. 

FO 



SUMP 

KBBREAK 

? start again 

22 

OFDC 

DA 

F4 


BR2s 

DJNZ 

INDX1 i BRl 

? UNTIL done 

.23. 

OFDE .. 

...DB. 

F2 



DJNZ 

INDX2, BRl 

? UNTIL all done 

24 

OFEO 

D2 

B1 



SETS 

TXD 

" Back to normal 

25 

0FE2 .., 

22 




RET 
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. X . 




» • 

. . .KjB:?CROLU.T. k^v.bo^rvj. "M.Q SCROLL" 

key 

2 





.#KB.SCROLL# . lo sU c. 3 . $ e s that t h e " 

NO SCROLL" key on the 

4 

.5 





keyboard has been depressed. 


6 

.7. 





.ENTRY... 

.OP.Oe. . . . . . . . 


y 

9. 




...?. 

EXIT 

none 


10 




? 




11 




; 

USES 

al 1 


12 








13 








14 

0FE3 

20 

36 

OA KBSCROLL: 

JB 

HSMODEF i KBSCR2 

* IF not hold screen mode THEN 

15 

0FE6 

74 

13 


MOV 

At #XOFF 

• start with XOFF 

16 

0 FE 8 

30 

11 

02 

JNB 

UXOFFSENT* KBSCR1 

? IF user XOFF last sent THEN 

17 

OFEB 

74 

11 


MOV 

At #XON 

? send an XON now instead 

18 








19 

OFED 

02 

022A 

KBSQR.l ? .. 

.U!MP.... 

PCOF 

,.;.p.l.ace.. in . . 0 y.t P.'-i t. .EIF.Q. and. r e t jj r n. 

20 

.21.. 

OFFO... 

. . Q2. 


KBSCR2 5 

CLR 

.. H5ST.QFF... 

; ELSE allow screen, to. run. 

22 

0FF2 

05 

IE 


INC 

HSLINE 

; bump line count 

23 

OFF 4 

, . . .30. 

. XQ. . 

.... 07 . 

.ONE. 

.. .SH.IF.TF.t. . ft SR. 

.? . IF. §hift down THEN 

24 

0FF7 

E5 

18 


MOV 

A, BFIX 

" calculate number 

25 

0FF9 

.. £3 



.CLR. 

C 

• between pases 

26 

OFFA 

95 

17 


SUBB 

A, TSCROLL 


27 

OFFC 

F5 

IE 


MOV 

HSLINE, A 


28 

OFFE 

22 


KSRs 

RET 
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1 
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1 



! ? 

ROM #2 vectors 

2 



! 



3 



• 

* 

These locations are provided to facilitate future modifications 

4 



? 

without a chanse to the masked processor. Each location is 

ISj 



* 

.accessed with a*-CALL- and control is sained back with a -RET-. 

A 






7 






8 

9 



! 

Initialization of terminal. 

io 

1000 



ORG 

R2_IN 

11 1000 

02 

1 OAF 


•JMP 

ALLINIT 

12 






13 






14 



; 

Soft 

initialization of terminal. 

15 



; 



16 

1003 



ORG 

R2„itsf2 

17 1003 

02 

10E4 


JMP 

SOFTINIT 

is 






19 






20 



7 

Start 

DMA routine. 

21 



; 



22 

1006 



ORG 

R2-STARTBMA 

23 1006 

02 

11 DC 


LJMP 

STARTDMA 

24 






25 






26 



7 

Stop 

DMA routine. 

27 






28 

1009 



ORG 

R2„S T OFDM A 

29 1009 

02 

11FD 


LJMP 

STOPDMA 

30 






31 






32 



? 

Fill 

screen routine. 

33 



? 



’ o' 4 * 

‘ i’do’d 



ORG 

R2lFILL . 

35 100C 

02 

1262 


LJMP 

STFILL 

36 






37 






38 



? 

Interrupt request. 

39 



; 



40 

1 OOF 



ORG 

R2_IRQ 

41 100F 

02 

1329 


LJMP 

IRQ 

42 






43 






44 



7 

Serial interrupt. 

45 



; 



.46 

ioi 2 



ORG 

R2-SERIAL ‘ * ’ ‘ ' " 

47 1012 

02 

12CB 


LJMP 

SERIAL 

46 ‘ 






49 






.50" 



; 

Transmit character from serial port. 

51 



? 



. 52 . 

1015 



ORG 

R2-XMT 

53 1015 

02 

139B 


LJMP 

TRANSMIT 

.54. 






55 



; 

Send 

XON to host 


36 

57 


1018 


ORG 


R2-X0N 
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1 1018 

02 

13D5 


LUMP 

DOXON 

2 

3 

4 

5 



» 

* 

? 

Initial 

ise the cursor format. 

6 

7 101B 

101B 

02 

117B 


ORG 

LUMP 

R2_ICUR 

SETCF 

8 

9 

10 

11 



5 

Initial 

ize the keyboard 

12 

13 101E 

101 E 

02 

119E 


ORG 

LJMP 

R2_IKB 

INITKB 

14 

15 

16 

17 



• 

Setup mode vector 

18 

19 1021 

1021 

02 

1417 


ORG 

LJMP 

R2-SETUP 

SETUP 

20 

..21...;. . ...... 

22 

.£3. 



? 

Background loop hook. 

24 

. 25 1024 

1024 

22 _ 



ORG 

RET 

R2-BACK 

26 

.2.7..... .. .. 

28 

.29. 



? 

! 

Keyboard input hook. 

30 

.aX.. 1027... 

32 

.33. 

1027 

...22 . 



ORG 

RET 

R2_KY1 

34 

.3.5. 



? 

Keyboard output hook. 

36 

.37..1Q2A... 

102 A 

22 



ORG 

RET 

R2-KY2 

38 

.3.9.‘ . ..... . 

40 

..41. 



5 

Escape 

parsing hook. 

42 

.43. .10.20... 

102D 

...22. . 



ORG 

RET 

R2-ESC 

44 

.4.5_ __ _ 

46 

47 . 



; 

Transmit character. 

48 

.49. .I.Q3.Q... 

50 

.5.1. 

1030 
.. .02. 

...1P8.S. 


ORG 

LJMP 

R2_TC 

SXMTC 

52 

.53. 




Transmit line. 

54 

.55.103.3... 

56 

.57. 

1033 

...0.2. 

...1PA8. 


ORG 

.U. J.MP .... 

R2_TL 

SXMTL 
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3. 



. 

Transmit pase. 

3 

1036 


? 

ORG 

R2_TP 

4 1036 

BSJ 

02 

1DAC 


LUMP 

XMTP 

6 

7 



; 

Transmit 25th line. 

8 

9 

1039 


? 

ORG 

R2-T25L 

10 1039 

11 

02 

1DC6 


LUMP 

XMT25 

12 

13 



; 

Print pas»e. 

14 

15 

103C 


* 

ORG 

R2.PRNT 

16 103C 

17 

02 

1DD2 


LUMP 

PRINT 

18 

19 



■ 

Di sp] av 

c 1 o c k. 

20 

21 

103F 


5 

ORG 

R2-DCLK 

22 103F 

23 

02 

1E1F 


LUMP 

DCLK 

24 

25 



■ 

Di spI av 

status. 

26 

27 

1042 


“ 

ORG 

R2-DISP 

28 1042 

02 

1E69 


LUMP 

DISPSTAT 
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1 





. . 

INIT - 

initialize terminal 



2 

3 





• 

7 

*INIT* 

sets up internal RAM 

from 

the ROM and EAROM, reconfigures 

4 

5 





: 

screen 

tables and initializes processor bytes. 

6 

7 





? 

ENTRY 

none 



8 

9 





7 

EXIT 

none 



10 

11 





. 

USES 

al 1 



12 

13 

14 

15 

1045 

75 

DO 

00 

INITs 

MOV 

PSW, #BANKO 

9 

7 

Select bank 0 

16 

17 

1048 
104 A 

78 

90 

OC 

1 FD1 



MOV 

MOV 

PTRl, #ISTORE 

DPTR, #RAMCONST 

7 

Load constants for 
initialization from ROM 

18 

19 

104D 

7A 

19 



MOV 

INDX1, #25 



20 

21 

104F 

11 

A 7 



ACALL 

INMOV 

7 

Move data 

22 

.23 

1051 

1053 

78 
.. 7A. 

35 

OB 



MOV 

MOV 

PTR1» #XXPOS 
...INDX.l.,. #U. 

7 

. \ 

Load constants for 

Second half of ROM .constants.... 

24 

25 

1055 

11 

A7 



ACALL 

INMOV 

m 

7 

Move data 

26 

27 





. 

Recal 1 

from EAROM 



28 

29 

1057 

C2 

03 



CLR 

EAROMRCALL 



30 

.3.1 

1059 

105C 

12 

...0.2. 

IE 18 

.03. 



CALL 

SETB 

WLATCH 

.EAROMRCALL. 

9 

Recal 1 from EAROM 

32 

33 

105E 

12 

1E18 



CALL 

WLATCH 

7 

By togg 1 ins' bit 

34 

. 35. 

36 

37 

1061 
1063... 
1066 

78 

...9.Q. 

7A 

25 

.7.Q0Q.. 

10 



MOV 

.MOV. 

MOV 

PTRl, #25H 

.. D.PJ.B ?.. #£A.Rp.M. 

INDX1, #16 

7 

Load constants for 

.goading. RAM. .f r.QOX .E.AR.QM.. 

;~{g 

.s?. 

40 

.41. 

1068 
1069... 
106B 
1 .Q6.C... 

EO 

...5.4. 

C4 

...FO. 

. OF. . 


IN3: 

MOVX 

.A1ML. 

SWAP 

.MOV. 

A, ©DPTR 

. A,. #P.FH. 

A 

. TEMP, A . 


REPEAT set upper nibble 

... .m.ask . da.t.a ... 

_save . u.ppe r.. P.4 b.b 3 5 . 

42 

43 

106D 

106E 

A3 

EO 




INC 

MOVX 

DPTR 

A, ©DPTR 

7 

bump EAROM pointer- 

set lower nibble . 

44 

45 

106F 
1071 

54 

4D 

OF 



ANL 

ORL 

A, #OFH 

A, TEMP 

; 

mask data 

combine upper a n d . .1 owe r. . 

46 

47 

48 

.4.9. 

50 

51 

1072 
.1.073... 
1074 
.10.75... 

F6 

...A3. 

08 

...DA. 

.FI. 



MOV 

.INC. 

INC 

.0sINZ.... 

©PTRl, A 

DPTR 

PTRl 

. .INPXl*.. .I.N3. . 

.?. 

place into internal RAM 
bump EAROM pointer 
bump internal RAM pointer 
..UNTIL..done. 

1077 

C2 

8 C 



CLR 

TRO 

- 

Turn off timer 0 

52 

53 

1079 

107C 

75 

75 

89 

98 

23 

5A 


MOV 

MOV 

TMOD, #ITMOD 

SCON, #ISCON 


Initialize values 

Place UART into mode 1 . 

54 

55 

107F 

E5 

33 



MOV 

A, BAUDRATE 

. 

. .Qe.t.. fcst.Md. .cats*.. 

56 

57 

1081 

1083 

F5 

B4 

8 D 

53 

00 


MOV 

CJNE 

TH1, A 

A,#83, IN3B 

5 

Initialize baud rate 
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..1. 

1P86 

50 

02 


IN3BS 

JNC 

IN3A . ; 

IF baud <= 300 THEN 


1088 

D2 

9F 



SETB 

SMO ; 

place UAR T into mode 3 


1.Q8.A.. 

...02. 

.$E. 


TN3A:. 

SETB 

TRi . ; 

Turn on baud rate timer 

.5. 

1.08C.. 

A2 

.3.0 . 



MOV 

C, PRTF2 


6 

108E 

92 

02 



MOV 

PORTF, c ; 

Initialize port direction 

. 7 

1090 

12 

. 1E18 .. 



CALL 

WLATCH 


8 

1093 

A2 

3D 



MOV 

C, ACHR2 

Get alternate char set flas 

9 

1095 

92 

OC 



MOV 

ALTCHARA, C ? 

Place in attributes 

10 









11 

1097 

30 

43 

02 


•JNB 

HAZ » IN4 ? 

IF Hazel tine mode THEN 

12 

109 A 

31 

D4 



ACALL 

HAZINIT ! 

initialize for Hazel tine 

13 









14 

109C 

12 

1F22 


IN4s 

CALL 

NVRCHK ? 

Checksum the NVRAM 

15 

109F 

B5 

34 

01 


CJNE 

A, NVRSUM, INS 

IF same THEN 

16 

10A2 

22 




RET 

? 

return 

17 

10 A3 

43 

40 

10 

IN5 s 

ORL 

ERRORS, #000100006 ? 

ELSE error #4 

18 

10A6 

22 




RET 



19 









20 









21 





; 




*7*2 





; 

Move 

from ROM to RAM using DPTR, 

F'TRl , and INDXl 

23 









24 









25 

10A7 . 

.. E4. 



INMOV: 

.CLR... 

A ? 

REPEAT 

26 

10 AS 

93 




MOVC 

A, @A+DPTR 5 

load constant 

27 

10A9 

.. F6. 




MOV 

@PTR1, A ? 

place into internal RAM 

28 

10AA 

A3 




INC 

DPTR ? 

bump ROM pointer 

29 

10AB 

08 




INC 

PTR1 ? 

bump RAM pointer 

30 

10 AC 

DA 

F9 



DJNZ 

INDXl, INMOV 

UNTIL done 

.31., 

l.QAE.. 

...?2. 




.RET... 
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1 




. . 

ALLINIT 

- initialize all of 

terminal 

2 





*ALLINIT* initializes every 

thins including the CRTC. 

4 




; 




6 

7 




; 

ENTRY 

none 


8 

9 




« 

EXIT 

none 


10 

11 





USES 

al 1 


12 

13 

10AF 

C2 

AF 

ALLINIT: 

CLR 

EA 

? Disable interrupts 

14 

15 

10B1 

75 

90 

CF 

MOV 

PI, #1100111 IB 

? Initialize port #1 

16 

17 

1 OB 4 

75 

40 

00 

MOV 

ERRORS, #0 

■ Initialize errors here 

18 

19 

10B7 

i 2 

1 EC 4 


CALL 

KBCHK 

" Check keyboard first (timing) 

20 

21 

10BA 

11 

45 


ACALL 

INIT 

“ Initialize everything 

‘ 22 

1OBC 

1OBD 

E4 

78 

47 


CLR 

MOV 

A 

PTR1, #LORDER 

■ Setup to initialize 

24 

25 

1OBF 

7 A 

19 


MOV 

INDXl, #NUMLINES 

* the -LORDER- table entries 

26 

27 

ioci 

IOC 2 

F6 

08 


ALL II:: 

MOV 

INC 

©FTR1, A 

PTR1 

? REPEAT place entry into table 
? bump RAM pointer 

28 

29 

1OC 3 
IOC 4 

04 

DA 

FB 


INC 

DJNZ 

A 

INDXl, ALLI1 

“ bump count 

5 UNTIL done 

30 

31 

10C6 

75 

B8 

03 

MOV 

IP, ttIPINIT 

? Interrupt priorities 

32 

33 

10C9 

31 

IE 


ACALL 

INITCRT 

" Start CRT controller 

34 

35 

1OCB 

1OCE 

12 

12 

IE El 9 
1EF1 


CALL 

CALL 

ROMCHK 

RAMCHK 

; Check ROM 

5 Check RAM 

36 

37 

10D1 

75 

A 8 

95 

MOV 

IE, #IEINIT 

" Enable interrupts 

;«* 

39 

10D4 

12 

OBAC 


CALL 

CLRS 

? Clear screen 

40 

41 

10D7 

10DA 

75 

12 

FO 

0B96 

18 

MOV 

CALL 

B, #MAXLINE 

CLRLINE 

, Clear 25th line 

42 

43 

1 ODD 

1ODF 

D2 

12 

24 

1F2C 


SETS 

CALL 

VSPF 

ERROR 

; Flag screen to be turned on 
? D i s p 1 a v a n v e r r o r s 

44 

10E2 

21 

9E 


AJMP 

INITKB 

* Initialize keyboard return 




































Z29R0M? MICRUBENCH 8051 CROSS ASSEMBLER (VU-218 24-PEB-83 15S30S06 RACE 162 

*** . Z~29. .COMPUTER TERMINAL. .FIRMWARE. VERSION . H P.3. .**.*. 


1 





; ; 

SOFTINIT - soft initialize 

terminal 

2 

3 





] 

*SOFTINIT# initializes the 

terminal but does not destroy the 

4 





; 

c u r rent 

settings such as caps lock? on/off line? and time on 

5 





; 

.the. .C.l.ock.. 


6 

7 





? 




8 

9 





\ 

ENTRY 

none 


10 





; 

EXIT 

none 


.1.1. 





; 




12 

13 





; 

USES 

al 1 


14 









15 

10E4 

CO 

3A 


SOFTINIT: 

PUSH 

TCNT 

? Save c1o ck information 

16 

10E6 

CO 

3B 



PUSH 

TSEC 


17 

10E8 

...P.9..... 

3C 



PUSH 

TMIN 


18 

10EA 

CO 

3D 



PUSH 

THOUR 


19 

10EC 

A 2 

.2E.. 



MOV 

C? ONLINE 


20 

10EE 

92 

EO 



MOV 

ACC.0? C 

? Save online flas 

21 

1OFO 

A2 

35 



MOV 

C> CAPLOCKF 


22 

10F2 

92 

El 



MOV 

ACC.1? C 

? Save caps locked flas 

.23 

1 OF 4 

CO 

EO 



PUSH 

ACC 


24 









.25. 

1 OF 6 

75 

90 

CB 


MOV 

PI? #1100101 IB 

? Initialize port #1 

26 









.27 

10F9 

11 

45 



ACALL 

INIT 

? Initialize everythins 

28 









29 

10FB 

DO 

EO 



POP 

ACC 


30 

10FD 

A2 

El 



MOV 

C? ACC.1 


.31. 

10FF 

...92,. 

35 



MOV 

CAPLOCKF? C 

? Restore caps locked flas 

32 

1101 

A 2 

EO 



MOV 

C? ACC.0 


33 

1103 

92 

....2E .. 



MOV 

ONLINE, C 

? Restore online flas 

34 

1105 

bo 

3D 



POP 

THOUR 

? Restore clock information 

.35. 

1107 

DO 

3C 



POP 

TMIN 


36 

1109 

bo 

3B 



POP 

TSEC 


37 

11 OB 

DO 

3A 



POP 

TCNT 


38 









39 

HOD 

31 

7B 



ACALL 

SETCF 

? Set cursor format 

40 









41 

11 OF 

12 

OBAC 



CALL 

CLRS 

? Clear screen 

42 

1112 

20 

37 

06 


JB 

L250N, SOFT11 

; IF 25th line is off THEN 

43 

1115 

75 

FO 

18 


MOV 

B? #MAXLINE 


44 

1118 

02 

0B96 



.JMP 

CLRLINE 

? clear 25th line 

45 









46 

11 IB 

02 

IE 69 


SOFT 11 s 

JMP 

DISPSTAT 

? ELSE display status info 
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1 

. . 

INITCRT - initialize CRT controler 

2 

3 

a 

7 

ft 

7 

#INITCRT# does everyth ins needed to set the CRT control er 

4 

5 

7 

ft 

7 

up and running properly. 

6 

7 


7 

7 

ENTRY none 

8 

• 

7 


9 

• 

7 

EXIT none 

id 

ft 

7 


11 


USES A, DPTR 


12 

13 


14 111E 

CO 

A 8 


INITCRT: 

PUSH 

IE 

? Save interrupt setup 

15 1120 

C2 

AF 



CLR 

EA 

; Disable interrupts 

i'6 

17 1122 

75 

09 

02 


MOV 

DMLNA, #2 

5 Start at first line to DMA 

18 1125 

75 

OB 

AO 


MOV 

DMADRL, #LOW (DMAMEM+160) 

19 1128 

75 

OA 

60 


MOV 

DMADRH, #HIGH (DMAMEM+160) 

20 

21 112B 

D2 

97 



SETB 

CLKRUN 

" Let the clock run 

22 

23 112D 

31 

52 



ACALL 

SETCRT 

5 Set CRT controler 

24 

25 112F 

D2 

88 



SETB 

I TO 

! Int 0 transition activated 

26 1131 

27 

53 

88 

D 1 


ANL 

TCON 7 #110100016 

? Clear IT1, IEO, IE1, TFO 

28 1134 

90 

2001 



MOV 

DPTR, #DCMDREG 


29 1137 

74 

EO 



MOV 

A, #CSET 


30 1139 

31 » 

FO 




MOVX 

©DPTR, A 

; Preset counters 

32 113A 

33 

C2 

97 



CLR 

CLKRUN 

? Turn off clock 

34 113C 

74 

20 



MOV 

A, #CSTRT 


35 113E 

FO 




MOVX 

©DPTR, A 

» Start CRT controler 

36 

37 113F 

D2 

97 



SETB 

CLKRUN 

’ Start clock 

38 

39 1141 

74 

AO 



MOV 

A, #CINT 


40 1143 

41 

FO 




MOVX 

©DPTR, A 

? Enable VRTC interrupts 

42 





IFC 

NE,DSTAREG-DCMDREG 


43 





ERROR 

" "DSTAREG" and " DCMDREG • 

are different 

44 





ENDC 



45 








46 




; 

MOV 

DPTR, #DST AREG 


47 








48 1144 

EO 




MOVX 

A, ©DPTR 

? Get status register 

49 1145 

44 

B3 



ORL 

A, #1011001IB 

“ Fill in dont cares 

50 1147 

64 

08 



XRL 

A, #000010006 

; Toggle proper positions 

51 1149 

F4. 




CPL 

A 


52 114A 

60 

03 



JZ 

IC1 

? IF not zero THEN 

53 114C 

43 

40 

04 


ORL 

ERRORS, #00000lOQB 

? flag error #2 

54 

.55.U4P... 

.. .P.Q- 

. m . 


.ICU?. 

.RPR. 

..IE. 

. 5. .E na fc 1 ft. p. 1 d.. i.n t.e rx; u,f? t.. ?.t a.t u 5. 

56 1151 

22 




RET 
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1 





7 7 

SETCRT 

- set CRT controler (reset 8276) 

2 

3 





. 

*SETCRT* initialises the CRT controler screen parameter bytes. 

4 

6 

7 





. 

ENTRY 

none 

8 

9 






EXIT 

none 

io 





; 

USES 

A, DPTR 

u 








12 








13 

1152 

90 

2001 


SETCRT s 

MOV 

DPTR 7 #DSTAREG 

14 

15 

1155 

EO 




MOVX 

A 7 ©DPTR ? Clear status register 

16 






IFC 

NE,DCMDREG-DSTAREG 

17 






ERROR 

* “DCMDREGand "DSTAREG" are different 

18 






ENDC 


19 








20 

21 





? 

MOV 

DPTR, #DCMDREG 

22 

1156 

74 

00 



MOV 

A, #CRESET 

23 

1158 

FO 




MOVX 

©DPTR, A , Reset and stop displav 

24 








25 

1159 

90 

2000 



MOV 

DPTR, #DDATREG 

26 

115C 

74 

4F 



MOV 

A, #SCRN1 

27 

USE 

FO 




MOVX 

©DPTR, A ? Output screen parameter bvtes 

28 








29 

115F 

74 

98 



MOV 

A, #SCRN2A 

30 

1161 

20 

“ '39. 

02 


JB 

FREQ, SCI ? Check for 50/60 Hz 

31 

1164 

74 

DC 



MOV 

A, #SCRN2B 

32 

1166 

FO 



SCI: 

MOVX 

©DPTR, A 

33 








34 

i i 67 

74 

99 



MOV 

A, #SCRN3 

35 

1169 

FO 




MOVX 

©DPTR, A 

.3*6' 








37 

116 A 

74 

4E 



MOV 

A, #SCRN4A 

38 

116C 

20 

39 

02 


•JB 

FREQ, SC2 ! Check for 50/60 Hz 

39 

116F 

74 

4F 



MOV 

A, #SCRM4B 

40 

1171 

A2 

38 


SC 2 s 

MOV 

C, CRNBK ; Get cursor no blink flag 

41 

1173 

92 

E5 



MOV 

ACC.5, C 

42 

Tl’75"" 

A 2 

"32. 



MOV 

C, CRUL “ Get cursor under1ine flag 

43 

1177 

92 

E4 



MOV 

ACC. 4, C 

"’44 

’ i iT 1 ? 

FO 




. Mdvx 

©DPTR, A 

45 

117A 

22 




RET 
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1 




;; 

SETCF - 

set cursor- format 

2 

3 




m 

7 

*SETCF* 

initializes the CRT controler for the cursor format 

4 

5 




7 

indicated. 

6 

7 




7 

ENTRY 

none 

8 

9 




; 

EXIT 

none 

10 

11 




7 

7 

USES 

A» DPTR 

12 

13 

14 

15 

117B 

31 

52 

SETCF: 

ACALL 

SETCRT ? Initialize screen resisters 

16 

17 

117D 
1180 

90 

74 

2001 

20 


MOV 

MOV 

DPTR, #DCMDREG 

A, #CSTRT 

18 

19 

1182 

FO 



MOVX 

©DPTR , A ; Start CRT controlsr 

20 

1183 

22 



RET 
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1 





; ; 

CURSOR 

~ update cursor position 


2 





5 

♦CURSOR* sends the current cursor 

address to the CRTC and 

4 

5 





, 

disables cursor if data is > 600 
is disabled. 

baud or dis p 1 av of cursor 

6 

7 





? 




8 

9 





. 

ENTRY 

none 


10 





? 

EXIT 

none 


11 





; 




12 

13 





; 

USES 

A, DF’TR 


14 









15 

1184 

90 

2001 


CURSOR: 

MOV 

DPTR, #DCMDREG 


16 

1187 

74 

80 



MOV 

A 7 #CCRSR 


17 

1189 

F0 




MOVX 

©DPTR, A ? 

Load cursor po sition 

18 

19 

118A 

90 

2000 



MOV 

DPTR, #DDATREG 


20 

118D 

E5 

11 



MOV 

A, XPOS 


21 

118F 

F0 




MOVX 

©DPTR, A ? 

Load cursor X—position 

22 

23 

1190 

E5 

12 



MOV 

A, YPOS 


24 

1192 

30 

1A 

03 


JNB 

ENBLCUR, CR1 

IF cursor display disabled OR 

25 

1195 

30 

14 

02 


•JNB 

DX, CR2 ; 

IF char rcvd since last time 

26 

1198 

74 

1A 


CRls 

MOV 

A, #NIJML INES + 1 ? 

put in non-existing region 

27 

119A 

F0 



CR25 

MOVX 

©DPTR, A 

ELSE put cursor Y-position 

28 









29 

119B 

C2 

14 



CLR 

DX ; 

and clear -DX- 

30 

119D 

‘”22. 




RET 
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1 





m 9 

INITKB 

- initialize keyboard 


2 

3 





? 

*INITKB* resets the keyboard 

to whatever settings the terminal 

4 

5 





7 

has at 

the current moment. 


6 

7 





! 

ENTRY 

none 


8 





* 




9 





; 

EXIT 

none 


10 





? 




11 





; 

USES 

al 1 


12 









13 









14 

119E 




INITKBi 

IFC 

NE,KBC_XL - KBC-EL - 

1 

15 






ERROR 

•'This code will not 

work' 

16 






ENDC 



17 

119E 

74 

84 



MOV 

A, #KBC_EL 


18 

11 AO 

20 

35 

01 


JB 

CAPLOCKF» IKB1 

? IF not caps locked THEN 

19 

11 A3 

04 




INC 

A 

* output caps unlocked 

20 

11A4 

31 

C8 


IKBls 

ACALL 

IKB6 

? (save bvtes this way) 

21 









22 






IFC 

NE» KBC_ONLN - KBC-OFFLN - 1 

23 






ERROR. 

..?. :Mh.i. s.. c.od & . w i .1.1..not. 

work*; . 

24 






ENDC 



25 

11A6 

74 

8A 



MOV 

A> #KBC_OFFLN 


26 

11A8 

30 

2E 

01 


JNB 

ONLINE, IKB2 

5 IF on line THEN 

27 

11AB 

04 




INC 

A 

? output on line command 

2 8 

11 AC 

31 

C8 


IKB2! 

ACALL 

IKB6 


29 









30 






IFC 

NE» KBC_EK - KBC-DK - 

1 

.31. 






.error... 

..5. :'Thi S..C.o d e. Wi.l. 1 .. not . 

work*' . 

32 






ENDC 



. 33. 

.l.l.AE.. 

74 

88 



. MQV 

A, #KBC_DK 


34 

11B0 

20 

IF 

01 


JB 

KBDISF, IKB3 

? IF keyboard disabled THEN 

. 3.5. 

.U.B3... 

... .Q4. 




. INC. 

. .A. 

• enafc.le k&Yb.Q&rvd. 

36 

11B4 

31 

C8 


IKB38 

ACALL 

IKB6 


37 









38 






IFC 

NE> KBC_.DC - KBC_.EC - 

1 

.3.?. 






.ERROR.. . 

..". Thi s.. c.ode. wi.l. 1..not. 

4»or.kr . . . „ ... 

40 






ENDC 



.4.1. 

. X 1.B6... 

74 

. 32. 



MOV 

A, #KBC_EC 


42 

11B8 

20 

33 

01 


JB 

CLKF, IKB4 

? IF key click disabled THEN 

43 

1 IBB 

04 




INC 

A 

5 output no key click . 

44 

11BC 

31 

C8 


IKB4: 

ACALL 

IKB6 


. 45 









46 






IFC 

NE,KBC_DR - KBC_ER - 

1 

. .4.7. 






.... ERROR 

5'This code will not 

work - ' 

48 






ENDC 



49 

x.im... 

...7.4. 

. 3.6. 



MOV 

..A ? ..#KBC^ER. 


50 

11C0 

20 

34 

01 


JB 

REPF, IKBS 

? IF auto repeat disabled THEN 

51 

11C3 

04 




INC 

A 

• no auto repeat 

52 

11C4 

31 

C8 


I KBS s 

ACALL 

IKB6 


53 









54 

11C6 

74 

80 



MOV 

A, #KBC_ID 

? Have it send it's ID number 

55 

11C8 

02 

.026.D.. 


IKB65 

JMP 

...PCKB. 
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,1 ..TERMINH. “. terminal..initial i.zati.on 

2 5 


*TERMINIT*..i ni tial. izes . the . terminal. for ZDS. and. ANSI 


4 




; 

emulation mode. This places the terminal in whatever mode 

.3. 




; 

the terminal must be in to emulate those modes. 

6 




J 



..7.. 




; 



8 

9 




* 

ENTRY 

none 

10 




; 

EXIT 

none 

.u.... 




? 



12 




; 

USES 

all 

13 







14 

...15.110.13... 

53 

.2.1. 

F0 

TERMINI!: 

ANL 

ATTRIBUTES, #0F0H ? Clear attributes 

16 11CE 

D2 

IB 



SETS 

ERM " Set erasure mode 

17 11D0 

D2 

25 



SETB 

GATM ? Set guarded area xmt mode 

18 11D2 

19 

80 

04 



SUMP 

HIR ; Clear protected and return 

20 







.21. 







22 







.. J23L. 




.". 5.. 

.H.87INIT. 

- H^?^ltinf- initialization 

24 







.2?.. 




, . ? 

*HAZINIT# initializes the terminal for the Hazel tine 1500 

26 




; 

emulation mode. This places the terminal in whatever mode 

..27.. 




; 

the terminal must be in to emulate the HazeTtine 1500. 

28 







29 




; 



30 




; 

ENTRY 

none 

..31. 




? 



32 




■ 

, 

EXIT 

none 

.33.. 




7 



34 




" 

USES 

all 

..35. 







36 

37 11D4 

D2 

0B 


HAZINIT5 

SETB 

HALFIA * Starts in background 

38 11D6 

D2 

IB 



SETB 

ERM • Reset erasure mode 

39 11D8 

75 

3F 

00 

HIRs 

MOV 

PFIELD, #0 ? No protected fields 

40 11DB 

22 




RET 










































Z29RQM? MICROBENCH 8051 CROSS ASSEMBLER (Vl)-218 24-FEB-83 15:30:06 PAGE 169 

*** Z—29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 


1 5 ? STARTDMA - start psuedo DMA transfer 


tf.STARTDMA* can only be interrupted bv the stop DMA routine. 


4 

5 




. 

It is 
stack 

initiated by pushing the address to start DMA onto the 
and executing a -RET-. The hardware takes over and 

6 




; 

executes an instruction that 

is hard wired to the data bus 

7 




7 

and initiates reads from the 

video memory to the CRT controler. 

8 ; 

9 ; 

10 




; 

ENTRY 

none 


11 








12 

13 




! 

EXIT 

none 


14 

15 




7 

USES 

none 


16 








17 

11 DC 

CO 

DO 

STARTDMA: 

PUSH 

F*SW 

' Save processor status 

18 

11DE 

CO 

EO 


PUSH 

ACC 


19 

11E0 

CO 

FO 


PUSH 

B 


20 








.21 

11E 2... 

...7.5,... 

A 8 

.82. 

MOV 

IE,.#IEDMA 

? Select interrupts for DMA 

22 

11E5 

D2 

B4 


SETS 

DMATYPE 

? Set type for DMA transfer 

.23 








24 

11E7 

E5 

09 


MOV 

At DMLNA 


25 

11E9 

70 

05 


«JNZ 

SD1 

? IF DMA for line #0 THEN 

26 

UEB 

30 

24 

02 

.JNB 

VSPF 7 SD1 

? IF no suppression THEN 

.27. 

1.1EE... 

C2 

92 


CLR 

VSP 

; always turn video on 

28 








29 

UFO 

CO 

OB 

SD1: 

PUSH 

DMADRL 

5 Push DMA start address 

30 

11F2 

CO 

OA 


PUSH' 

DMADRH 

" onto the stack 

....31 

11F4 .. 

... 75. 

....gc. 

FF 

MOV 

THOt #OFFH 

; Initialize timer values . 

32 

11F7 

75 

8A 

D6 

MOV 

TLO, #0D6H 

? For 80 characters 

. as. 

UFA . 

...JD2. 

.... 8C. 


.SEJB.. 

TRO 

; Start timer running.. . 

34 

11FC 

32 



RET I 


? Start psuedo DMA 
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1 





’ 5 

STOF'DMA 

- stop psuedo DMA 

transfer 


2 





; 

#STOPDMA# is the other- half of the 

DMA transfer routine. 

4 






It stops the timer? cleans the stack? sets -DMATYPE- to it"s 

l=j 





; 

normal 

value? and enables 

interrupts. If it was filling memory 

6 





; 

then it 

finishes up that 

otherwise 

it continues and calculates 

7 





; 

the next line number? address? and 

indexes for DMA. 

8 

9 





! 





10 





; 

ENTRY 

none 



11 










12 

13 





! 

EXIT 

none 



14 





; 

USES 

none 



15 










16 










17 

11FD 

C2 

8C 


STOPDMA: 

CLR 

TRO 

; 

Stop timer 

18 

19 

1 IFF 

75 

AS 

95 


MOV 

IE? # IEINIT 

5 

Reset interrupt enables 

20 

1202 

20 

B4 

20 


JB 

DMATYPE? DM1 

? 

IF filling memory THEN 

21 

1205 

D2 

B4 



SETB 

DMATYPE 

7 

set -DMATYPE-.t o n o rma1 

22 

1207 

DO 

83 



POP 

DPH 

7 

get last address from 

23 

1209 

DO 

82 



POP 

DPL 

$ 

the stack 

24 

120B 

AD 

FO 



MOV 

TEMP? B 

; 

get remainder 

25 

120 El 

BD 

00 

01 


CJNE 

TEMP? #0? FILL 


IF nothing left THEN 

26 

1210 

32 




RETI 


7 

return 

27 

1211 

74 

20 


FILL: 

MOV 

A? #*' •- 

; 

ELSE set up and 

28 

1213 

53 

83 

CF 


ANL 

DPH? #DMAANL 



29 

1216 

43 

83 

10 


ORL 

DPH, #CHRORL 

5 

mask into char memory 

30 

1219 

.. —.... 



FLis 

INC 

DPTR 

7 

REPEAT bump position 

31 

121A 

FO 




MOVX 

SDPTR, A 

7 

fill with spaces 

32 

121B 

53 

83 

EF 


ANL 

DPH? #ATRANL 

; 

mask into attribute mem 

33 

121E 

FO 




MOVX 

@DF'TR, A 

5 

clear attributes 

34 

121F 

.. .^. .... 

83 

10 


ORL 

DPH? #CHRORL 

m 

mask into char memory 

35 

1222 

DD 

F5 



DJNZ 

TEMP, FL1 


UNTIL indexl = 0 

36 

1224 

32 




RETI 


; 

Return 

37 










38 










39 

1225 

75 

DO 

08 

DM1: 

MOV 

PSW? #BANK1 

; 

ELSE select bank #1 

40 

1228 

DO 

EO 



POP 

ACC 

; 

clean off stack 

41 

122A 

DO 

EO 



POP 

ACC 



42 










43 

122C 

09 




INC 

DMLN 

; 

bump current DMA 1ine 

44 










45 

122D 

20 

39 

13 


■JB 

FREQ? DM1A 

; 

IF 50 Hz THEN 

46 

i 230 

B9 

ID 

02 


CJNE 

DMLN, #29, DMIB 

; 

IF line 29 THEN 

47 

1233 

80 

13 



SJMP 

DM2 

; 

wrap around 

48 

1235 

B9 

19 

00 

DM 1B: 

CJNE 

DMLN ? #NUMLINES, DM1C 5 

ELSE IF line O 25 THEN 

49 

1238 

40 

10 


DM1C: 

JC 

DM3 

; 

do usual stuff 

50 

123 A 

B9 

1A 

00 


CJNE 

DMLN,#NUMLINES+1? 

DM ID 


51 

123D 

40 

1C 


DM ID: 

JC 

DM4 

; 

ELSE IF line >“ 26 THEN 

. 32 ' 

’ i'23F 

.. 

92 



SETB 

VSP 

; 

begin blanking 

53 

1241 

80 

18 



SJMP 

DM4 



.54' 










55 

1243 

B9 

19 

00 

DM 1A: 

CJNE 

DMLN, #NIJMLI NES? DM IE ? 

Check for wrap around 

56 

1246 

40 

02 


DM1E: 

JC 

DM3 

5 

IF line > 25 THEN 

57 

1248 

79 

00 


DM2: 

MOV 

DMLN? #0 

; 

wrap around 




































Z29R0M; 

MICROBENCH 

8051 CROSS ASSEMBLER (VI>-213 

24-FEB-83 15: 

30:06 PAGE 171 



*** Z—29 COMPUTER TERMINAL 

FIRMWARE VERSION 1.03 





1 

2 

124 A 

74 

47 

DM3: 

MOV 

A, #LORDER 

7 

ELSE set base of table 

3 

124C 

29 



ADD 

A, DMLN 

! 

add in offset 

4 

1240 

FS 



MOV 

DMPTR, A 

7 

move it into pointer 

5 

124E 

E6 



MOV 

A, GDMPTR 

7 

set value from table 

6 

7 

124F 

75 

FO 

50 

MOV 

B* #NUMCHARS 

7 

set up for multiply 

S 

1252 

A4 



MUL 

AB 

; 

do it 

9 

1253 

F5 

OB 


MOV 

DMADRL, A 

5 

save 1 oui order bvte 

id 

1255 

E5 

FO 


MOV 

A, B 


set hish order bvte 

11 

1257 

24 

60 


ADD 

A, #HIGH (DMAMEM) 


add offset 

12 

1259 

"'FS' 

OA 


MOV 

DMADRH, A 

• 

* 

save hish order bvte 

13 









14 

125B 

DO 

FO 

DM4! 

POP 

B 

; 

Restore resisters and return 

15 .1250 

DO 

EO 


POP 

ACC 



16 

125F 

'' DO 

DO 


POP 

? PSW 



17 

1261 

32 



RET I 







































4i?'nun! ri jl i-.rvuDC.iNun owi unuoo MoocriDLcm ivn x o 

.....***. ?r.?2.COMPUTER. TE.RMIN.AL.FIRMWARE. VERSION. I,P.3. 

r co“oo j. - 

jy> w rwuc. i / ^ 

1 ?; 

STFILL 

- start fill ins* with spaces 

2 ? 

3 ? 

.ftST.FILt*. .ta.k<?.5.. the . number, .of . c.haracter.s. an.^. 1.o.c;at i on ; n 

4 

5 ; 

screen memory and fills them with 20H and places the 
.attribute..aiy.er*. .i.rito attribute, memorv. It takes into. 

6 

7 .;. 

account 

the mode that ERM is in. 

9 ' 

ENTRY 

(A) = number of characters less than 127 . . 

10 ? 

11 ? 


(B) = attribute to write 

(DPTR) = character memorv address to start from 

12 ? 

13 ; 

EXIT 

none 

14 ? 

15 ? 

USES 

A, B, DPTR, WORK2, TEMP, INDX2, TIMER 0 

16 

17 


IS 1262 FB STFILLS MOV INDX2, A ? Save count 


19 

1263 

AF 

FO 



MOV 

W0RK2, B 

? Save attributes 

20 

21 

1265 

BF 

00 

...,3D.... 


CJNE 

W0RK2, #0, SFB 

; IF attributes THEN special. 

23 

1268 

30 

IB 

04 


-JNB 

.. .ERM.,.. SFA. 

5 IF not erasure mode THEN 

24 









25 

126B 

E5 

3F 



MOV 

A, PFIELD 

5 IF protected fields THEN 

26 

27 

126D 

70 

36 



JNZ 

SFB 

? special 

2*3 

126F 

53 

83 

EF 

SFA5 

ANL 

DPH, #ATRANL 

? convert to DMA memorv 

29 

1272 

43 

83 

20 


ORL 

DPH, #DMAORL 


30 

1275 

EB 




MOV 

A, INDX2 

? 9et count back 

31 

1276 

23 




RL 

A 

? multiply bv 2 

32 

1277 

75 

FO 

03 


MOV 

B, #3 

? set up for divide bv 3 

33 

127A 

84 




DIV 

AB 

I place remainder in (B) 

34 

127B 

C5 

FO 



XCH 

A, B 

? switch to work with <B) 

35 

127 D 

B4 

02 

06 


CJNE 

A, #2, SF1 

5 IF remainder ~ 2 THEN 

36 

1280 

05 

FO 



INC 

B 

? bump clock value 

37 

1282 

74 

00 



MOV 

A, #0 

5 remainder := 0 

38 

39 

1284 

80 

07 



SUMP 

SF2 

? ELSE 

40 

i 286 

B4 

00 

04 

SFls 

CJNE 

A, #0, SF2 

5 IF remainder = 0 THEN 

41 

1289 

74 

02 



MOV 

A, #2 

? remainder 2 

42 

128B 

15 

FO 



DEC 

B 

? decrement clock count 

43 

128D 

C5 

FO 


SF2s 

XCH 

A, B 

S switch back 

44 

128F 

F4 




CPL 

A 

? take 2-'s complement of (A) 

45 

1290 

04 




INC 

A 


46 









47 

1291 

C2 

AF 



CLR 

EA 

? disable interrupts 

48 

1293 

00 




NOP 


* s»ive time to clear 

49 

1294 

75 

A 8 

82 


MOV 

IE, #IEDMA 

? init for DMA 

50 

1297 

C2 

B4 



CLR 

DMATYPE 

? set type for clear memory 

51 

1299 

CO 

82 



PUSH 

DPL 

? push DMA start address 

52 

129B 

CO 

83 



PUSH 

DPH 

‘ onto the stack 

53 

129D 

75 

8C 

FF 


MOV 

THO, #OFFH 

? set timer 0 

54 

12A0 

F5 

8A 



MOV 

TLO, A 

? for number of characters 

55 

12A2 

D2 

8C 



SETB 

TRO 

? start timer running 

56 

12A4 





RET 


? start DMA 


57 
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*** Z-29 COMPUTER TERMINAL FIRMWARE 

VERSION 1.03 





1 

12A5 

E5 

3F 


SFBs 

MOV 

A, PFIELD 

■ 

V 

ELSE protected fields 

2 

12A7 

B4 

FE 

01 


CJNE 

A, #254, SF3 

7 

ELSE IF none protected THEN 

;"> 

12 AA 

E4 




CLR 

A 

? 

set for none 

4 

5 

12AB 

FD 



SF3: 

MOV 

TEMP, A 


save value in -TEMP- 

6 

12 AC 

53 

83 

EF 

SFL: 

ANL 

DPH, #ATRANL 

; 

REPEAT mask to attribute 

7 

12AF 

EO 




MOVX 

A, ©DPTR 

; 

get current attribute 

8 

12B0 

54 

OF 



ANL 

A, #00001111B 

; 

mask data 

9 

12B2 

70 

05 



JNZ 

SF4 

; 

IF no attributes THEN 

10 

12B4 

BD 

80 

08 


CJNE 

TEMP, #80H, SF5 

; 

IF protected THEN skip 

11 

12B7 

80 

OE 



SJMP 

SF6 

; 

ELSE 

12 

12B9 

5D 



SF4: 

ANL 

A, TEMP 

• 

mask with protected 

13 

12BA 

B5 

05 

02 


CJNE 

A, TEMPA, SF5 

5 

IF protected THEN 

14 

15 

i2BD 

80 

08 



sJmp 

SF6 

? 

skip 

16 

12BF 

EF 



SF5S 

MOV 

A, W0RK2 

; 

get attribute to write 

17 

12 C0 

FO 




MOVX 

©DPTR, A 

; 

write attribute out 

18 

12C1 

43 

83 

10 


ORL 

DPH, #CHRORL 

; 

mask to character memory 

19 

12C4 

74 

20 



MOV 

A, #•' ■' 

; 

get space to write 

20 

1 2C6 

FO 




MOVX 

©DPTR, A 

7 

clear character- 

21 

12C7 

A3 



SF6: 

INC 

DPTR 

• 

bump pointer 

22 

12C8 

' ‘' DB 

E2 



DJNZ 

INDX2, SFL 

5 

UNTIL done 

23 

12 CA 

22 




RET 
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.1. 






.SERIAL. 

- serial. p.qp t . int erp up t 

. .r.ou.ti.ne... 


2 






.:*SERI AL#. processes. al 1. serial. 

per: t. .interrupts.*. 


4 

.5. 










6 

. 7 





? 

ENTRY 

none 



8 





? 

EXIT 

none 



.. 9. 










10 

11 





? 

USES 

none 



12 

13 

12CB 

CO 

DO 


SERIAL: 

PUSH 

PSW 

; Save registers 


14 

12CD 

CO 

EO 



PUSH 

ACC 



15 

12CF 

CO 

FO 



PUSH 

B 



16 

12D1 

CO 

82 



PUSH 

DPL 



.17 

12D3 

CO 

83 



PUSH 

DPH 



18 

12D5 

20 

98 

05 


JB 

RI, SERIN 

, Check receiver interrupt 


19 

12D8 

...20..... 

99 

...38... 


JB 

TI, SEROUT 

? Check transmit interrupt 


20 

12DB 

80 

3A 



SUMP 

SRT 

“ This should never happen 


21 










22 

12DD 

75 

39 

00 

SERIN: 

MOV 

AUTOCNT, #0 



23 

12E0 

D2 

24 



SETS 

VSPF 

? Change auto off 


24 

12E2 

C2 

98 



CLR 

RI 

" Clear receiver int flag 


25 

12E4 

E5 

99 



MOV 

A? SBUF 

? Get character 


26 

12E6 

54 

7F 



ANL 

A, #011111118 

? Mask off parity 


27 

12E8 

20 

43 

02 


JB 

HAZ, SIO 

? IF not Hazel tine THEN 


28 

12EB 

60 

2A 



JZ 

SRT 

? IF null THEN exit 


29 










30 

12ED 

20 

23 

03 

S10: 

JB 

PRNTF * SI1 

? IF not printing THEN 


31 

12F0 

30 

2E 

24 


JNB 

ONLINE, SRT 

5 IF offline THEN exit 


32 

i 2F3 

B4 

13 

OB 

SI is 

CJNE 

A, #XOFF , SI2 

? IF -XOFF- received THEN 


33 

12F6 

20 

23 

06 


JB 

PRNTF, SI1A 

; IF not printing THEN 


34 

12F9 

20 

42 

05 


JB 

ADM3, SI2 

? IF ADM 3A THEN skip 


35 

12FC 

20 

43 

02 


JB 

HAZ, SI2 

? IF Hazel tine THEN skip 


36 

12FF 

02 

16 


S11A: 

SETB 

XOFFRCVED 

? flag for XOFF 


37 

1301 

B4 

11 

02 

SI 2: 

CJNE 

A, #XON, 313 

5 IF -XON- received THEN 


38 

1304 

C2 

16 



CLR 

XOFFRCVED 

5 flag for no XOFF 


39 

1306 

20 

23 

OE 

SI3: 

JB 

PRNTF, SRT 

• IF printing THEN exit 


40 

j.309 

12 

01CA 



LCALL 

PC IF 

“ Put character in input FIFO 


41 

130C 

30 

D5 

08 


JNB 

FO, SRT 

; IF -XOFF- needed THEN 


42 

i-SOF “* 

71 

C4 



ACALL 

DOXOFF 

“ send an -XOFF- and exit 


43 

1311 

80 

04 



SJMP 

SRT 



44 










45 

1313 

C2 

99 


SEROUTs 

CLR 

TI 

? Clear transmit int flag 


46 

1315 

02 

13 



SETB 

OKTRANS 

; Set ok to transmit 


47 










48 

1317 

DO 

83 


SRT: 

POP 

DPH 

? Restore registers 


49 

1319 

DO 

82 



POP 

DPL 



50 

131B 

DO 

FO 



POP 

B 



51 

131D 

DO 

EO 



POP 

ACC 



52 

isiF 

DO 

DO 



POP 

PSW 



53 

1321 

71 

26 - 



ACALL 

SRT1 

5 Double check 


54 

1323 

D2 

AF 



SETB 

EA 



55 

1325 

22 




RET 




56 

1326 

P2 

AF 


SRTls 

CLR 

EA 



57 

1328 

32 




RETI 


? And return 
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*** Z-29 COMPUTER TERMINAL FIRMWARE VERS 

HON 1.03 





1 





.. 

IRQ ~ 

interrupt request 



2 





? 

*IRQ* 

is executed when the CR’TC 

starts to display the 25th 

4 





; 

1 in*. 

At this point the DMA line 

number must have been set 

5 





; 

to zero or some error has occured 

. This routine is a safety 

6 





; 

check 

for anv such errors and will take at most one frome to 

7 






straighten out any such errors. 


It also takes care of any 

.S' 

9 





: 

cl ock 

timing and blinking. 



10 





; 





11 





? 

ENTRY 

none 



12 

13 





; 

EXIT 

none 



14 





; 





15 






USES 

none 



16 










17 










is 

1329 

CO 

DO 


IRQ! 

PUSH 

PSW 

? 

£:ave registers 

19 

132B 

CO 

EO 



PUSH 

ACC 



20 

132D 

CO 

FO 



PUSH 

B 



21 

132F 

CO 

82 



PUSH 

DPL 



22 

1331 

CO 

83 



PUSH 

DPH 



23 










24 

1333 

75 

09 

00 


MOV 

DMLNA, #0 

? 

Safety check 

25 










26 

1336 

31 

84 



ACALL 

CURSOR 

; 

Display cursor 

27 










28 

1338 

90 

2001 



MOV 

DPTR, #DSTAREG 



29 

133B 

EO 




MOVX 

A, ©DPTR 

? 

Clear any CRTC flags 

30 










31 

133C 

05 

38 



INC 

BLNKCNT 

; 

Bump blink count 

32 

133E 

E5 

37 



MOV 

A, BLNKRATE 



33 

1340 

60 

10 



JZ 

IRQ2 

; 

IF not zero OR 

34 

1342 

B 4 

FF 

02 


CJNE 

A, #0FFH, IRQ1 


IF not full count THEN 

35 

1345 

so 

OB 



SUMP 

IRQ2 



36 

1347 

B5 

38 ' 

03 

IRQls 

CJNE 

A> BLNKCNT, IRQ2 

; 

IF time to blink THEN 

37 

134 A 

75 

38 

00 


MOV 

BLNKCNT, #0 

; 

reset count 

38 

134 D 

B2 

oi 



CPL 

BLINKF 

V 

toggle blink flag 

39 

134 F 

12 

1E18 



CALL 

WLATCH 



40 










41 

1352 

05 

3A 


IRQ2-- 

INC 

TCNT 

; 

Bump time, count 

42 

1354 

E5 

3A 



MOV 

A, TCNT 



43 

1356 

20 

39 

05 


JB 

FREQ, IRQ3 

? 

IF 50 Hz AND 1 second OR 

44 

1359 

B4 

32 

34 


CJNE 

A, #50, IRQ5 



45 

135C 

80 

03 



SUMP 

IRQ 4 

; 

IF 60 Hz AND 1 second THEN 

46 

135E 

’ ‘ B4 

3C 

2F 

IRQ3S 

CJNE 

A, #60, IRQ5 



47 

1361 

75 

3A 

00 

IRQ4! 

MOV 

TCNT, #0 

; 

initialize count 

48 

1364 

05 

3B 



INC 

TSEC 

; 

bump seconds 

49 

1366 

E5 

3B 



MOV 

A, TSEC 



50 

1368 

B4 

3C 

25 


CJNE 

A, #60, IRQ5 

V 

IF one minute THEN 

51 

136B 

30 

3B 

OB 


JNB 

SCRNSAVE, IRQ4A 

; 

IF screen saver THEN 

52 

136E 

’ ‘ 05 

39 



INC 

AUTOCNT 

; 

bump auto off 

53 

1370 

E5 

89 



MOV 

A, AUTOCNT 



54 

1372 

B4 

OF 

04 


CJNE 

A, #15, IRQ4A 

? 

IF saver time up THEN 

55 

1375 

... C2 

.24. 



CLR 

VSPF . . , 

; 

flag it is off 

56 

1377 

D2 

92 



SETS 

VSP 

; 

and turn off display 

. 57 
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1 

1379 

75 

3B 

00 

IRQ4AS 

MOV 

TSEC, #0 

; 

initialize seconds 

2 

137C 

05 

3C 



INC 

TMIN 

; 

bump minutes 

3 

1:37 E 

E5 

3C 



MOV 

A? TMIN 



4 

1380 

B4 

3C 

OD 


CJNE 

A, #60» IRQ5 

> 

IF one hour THEN 

5 

1383 

75 

3C 

00 


. my..... 

TMIN, #Q 


.i ni .t. i a 1 i? ?.. m pm $.% z . 

6 

1386 

05 

3D 



INC 

THOUR 

? 

bump hours 

7 

1388 

E5 

3D 



MOV 

A, THOUR 



8 

138A 

B4 

18 

03 


CJNE 

A, #24, IRQ5 

; 

IF 24 hours THEN 

9 

138D 

75 

3D 

00 


MOV 

THOUR, #0 

? 

initialize hours 

10 










11 

1390 

DO 

83 


IRQ5: 

POP 

DPH 

; 

Restore resisters and return 

1*2 

1392 

DO 

82 



POP 

DPL 



13 

1394 

DO 

FO 



POP 

B 



14 

1396 

DO 

EO 



POP 

ACC 



15 

1398 

DO 

DO 



POP 

PSW 



16 

139 A 

32 




RETI 
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*** Z—29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 


1 . ?? TRANSMIT - transmit to host 


2 

3 

7 

? 

#TRANSMIT# waits for an 

empty output 

holding register? sets 

4 

ej 

7 

paritvi 

and outputs the 

character to 

the serial port. 

6 

7 

ft 

* 

* 

ENTRY 

(A) ~ character 

to output 


‘ ‘”6*. 

9 

a 

7 

5 

EXIT 

n(A) = character 

with correct 

parity 

‘ TO ' ‘ 

11 

7 

7 

‘ USES 

A 




i ‘2 

13 


14 139B 

15 

20 

16 

FD 

.TRANSMIT*. 

■JB 

XOFTRCVED? TRANSMIT 

? Wait until no -XOFF- 

i '6 139E 

£3 



TRANS: 

CLR 

C 

? Start with no parity 

17 139F 

30 

28 

OA 


*JNB 

PRTYENA, TRA 

? IF parity enabled THEN 

18 13A2 

D3 




SETB 

C 

‘ do set parity 

19 13A3 

20 

29 

06 


JB 

PRTYSTK* TRA 

? IF not stick parity THEN 

20 13A6 

A2 

DO 



MOV 

C? P 

? do even parity 

21 13A8 

20 

2 A 

01 


JB 

PRTYEVN? TRA 

5 IF not even parity THEN 

22 1SAB 

B3 




CPL 

6 

; do odd parity 

23 1SAC 

92 

E7 


TRA: 

MOV 

ACC.7? C 

? Put in parity bit 

24 

25 13AE 

20 

13 

03 

TRW: 

JB 

OKTRANS, TROK 

? IF ok to transmit OR 

26 13B1 

30 

99 

FA 


JNB 

TI, TRW 

? IF transmit buffer empty THEN 

27 13B4 

20 

02 

03 

TROK: 

JB 

PORTF? TROK1 

? IF auxiliary port OR 

28 13B7 

30 

3E 

03 


JNB 

HNDSHK? TR0K2 

? IF hardware handshake THEN 

29 13BA 

20 

B5 

FI 

TR0K1s 

JB 

CTS, TRW 

! IF not CTS THEN do again 

30 

31 13BD 

C2 

99 


TR0K2: 

CLR 

TI 

* clear buffer empty flag 

32 13BF 

C 2 

13 



CLR 

OKTRANS 

• make not ok to transmit 

33 13C1 

F5 

99 



MOV 

SBUF 7 A 

? output data 

34 13C3 

22 




RET 
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***Jr.ZP .. COMPUTER. TERMJNAU .FIRMWARE. .VERSION . JU.Q3. ***..... 

.1.,?.?.POXOFF.do .send. XOFF. .to . .h.o.s.t. 

.3..".#DpXpFF-*. preempts. .outgo .in.g . data. and. outputs. .art. .X.QFE. .t.0. .b.o.$.t 


4 ? setting the proper flags. 

5. . . . . 5. .. .... 


6 

7 

8 
9 






ENTRY 

.n.one. 






• 

EXIT 

none 


10 





; 




11 





; 

USES 

A 


12 









13 









14 

13C4 

20 

10 

1A 

DOXOFFs 

JB 

XOFFSENT 7 SXR 

? IF XOFF already sent THEN exit 

15 

13C7 

D2 

10 



SETS 

XOFFSENT 

; Flag .that handshake was done 

16 









17 

13C9 

30 

3E 

05 


•JNB 

HNDSHK, XMTXOFF 

? IF hardware handshake T.HEJX... . 

IS 

13CC 

D2 

95 



SETS 

RTS 

? set handshake lines 

19 

13CE 

D2 

94 



SETB 

DTR 


20 

21 

13 DO 

22 




RET 



22 

13D 1 

74 

13 


XMTXOFF: 

MOV 

A, #XOFF 

? ELSE output an XOFF 

23 

13D3 

61 

9E 



AJMP 

jmm . 

.s..t rans.mi f.. i.t.. ao.d. r.s.t.Mr.o. 

24 









25 









26 









27 









28 





? ? 

DOXON - 

do send XON to host 

29 





7 




30 





7 

*DOXON* 

preempts outgoing 

data and outputs an XON to host 

31 





; 

checking that it does not 

override any user XOFF. 

32 









33 





• 




34 





7 

ENTRY 

none 


35 





; 




36 





? 

EXIT 

none 


37 





; 




38 





; 

USES 

A 


39 









40 









41 

13D5 

30 

10 

09 

DOXONs 

.JNB 

XOFFSENT, SXR 

? IF no XOFF sent THEN exit 

42 

13D8 

02 

10 



CLR 

XOFFSENT 

? Clear flag on handshake 

43 









44 

13DA 

30 

3E 

05 


JNB 

HNDSHK, SX0N1 

? IF hardware handshake THEN 

45 

13DD 

02 

95 



CLR 

RTS 

" clear handshake lines 

46 

i 3DF 

’' 02 

94 



CLR 

DTR 


47 

13E1 

22 



SXRs 

RET 



48 









49 

13E2 

20 

11 

FC 

SX0N1: 

JB 

UX0FF8ENT, SXR 

5 IF no user XOFF THEN 

50 

13E5 

74 

11 


XMTXONs 

MOV 

A, #XON 

, send an XON 

51 

13E7 

61 

9E 



AJMP 

TRANS 

' transmit it and return 
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1 ■? LOOKUP - table lookup and Jump 


3 ? *LOOKUP* looks for the entry in the table passed to it.If 

4 ; found the return address is removed and control given to the 

5 ? routine. If not found then the main table is searched. If 


6 ? found the return address is removed and control given to the 

7 ? routine. If not found then control is given back to the 


o 

9 




: 

cal 1ins 

routine. 


10 




; 




11 




; 

ENTRY 

(B) = table length 


12 

13 




[ 


(DPTR> = beginnins of 

tab 1 e 

14 




; 

EXIT 

return if not found in 

tables 

15 








i<£> 




; 

USES 

al 1 


17 








is 








19 

13E9 

91 

04 

LOOKUP: 

ACALL 

XSTABX 

“ Search users table 

20 

13EB 

50 

OB 


JNC 

LKUP1 

; IF not found THEN 

21 

13ED 

75 

FO 

13 

MOV 

B, #LOTL 


22 

13F0' 

' ‘ '90 . 

1432 


MOV 

DPTR 7 #L0T 


23 

13F3 

91 

04 


ACALL 

XSTABX 

? search main table 

24 

13F5 

50 

01 


JNC 

LKUP1 

IF not found THEN 

25 

13F7 

22 



RET 


? return 

26 

27 

13F8 

DO 

EO 

LKUP1 : 

POP 

ACC 

? ELSE found THEN 

28 

13FA 

DO 

EO 


POP 

ACC 

? remove return address 

29 

13FC 

E4 



CLR 

A 


30 

13FD 

73 



JMP 

©A+DPTR 

; Jump to routine 
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.1...?.?.XSJX . -. t ran sm .it. .s tr ins . to. \ i ne .25. f o 1.1 ow.i ns . CALL 


2 

3 




7 

•s-XSTX# .i$ a Jump to the routine. #XST*. 

.. I.t. A S.. U5 £.3. t o.. s.a Y£... 

4 

5 

6 
7 




.?. 

bvtes so that routines mav use a short 
of a lops Jump to the other routine. 

Jump to here instead 

0 

..9 

13FE 

02 

1B9D 

XSTXs 

LJMF* XST ? .Jump 

to routine 

10 

11 

12 

13 




. . 

XSTATX " transmit string to line 25 


14 

15 




5 

•a-XSTATX# is a Jump to the routine #XSTAT#. It is used to 

16 

17 




, 

save bvtes so that routines mav use a short Jump to here 
instead of a long Jump to the other routine. 

18 

19 .. .... 

20 

21 

1401 

02 

1 BAS 

XSTATX s 

LUMP XSTAT ? Jump 

to routine 

22 

..23. . . . 

24 

25 

26 

..27 




? ? 

7 

XSTABX - search .table. 

•H-XSTABX# is a Jump to the routine #STAB*. It is used to 

28 

29 

30 

31 




7 

7 

save bvtes so that routines mav use a short Jump to here 
instead of a long Jump to the other routine. 

32 

33 

1404 

02 

013A 

XSTABX: 

LJMF' STAB ? Jump 

to routine 
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1 




? 5 

SFCKB 

- setup fetch character from keyboard 

2 




» 



3 




m 

7 

♦SFCKB* waits for characters from the keyboard. It does 

4 




7 

not return until a character is returned. All access codes 

5 




7 

and the characters that follow are dropped. 

6 

7 




7 

a 

7 



8 




7 

ENTRY 

none 

9 




? 



10 




7 

EXIT 

(A) - character from keyboard 

11 




? 



12 




? 

USES 

A, B, DPTR 

13 







14 







15 

1407 

12 

02B6 

SFCKBs 

CALL 

FCKB " Wait for key 

16 

140A 

40 

FB 


JC 

SFCKB 

17 

140C 

B4 

9F 07 


CJNE 

A, #KB_ACC» SFCKB2 ? IF access code THEN 

is 

140F 

12 

02B6 

SFCKBl: 

CALL 

FCKB ? drop next character 

19 

1412 

40 

FB 


JC 

SFCKBl 

20 

1414 

SO 

FI 


SJMP 

SFCKB ? and keep on so ins 

21 

1416 

22 


SFCKB2S 

RET 

? ELSE return 
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.*.** . Z~2S> . .COMPUTER. .TERMI NAL .FIRMWARE. .VERSION. .1, .03. .*.**... 


. I. 





.? ?. 

SETUP1 

- setup mode. 1 ine #1 



. a 






•h-SETUPI# runs the terminal setup 

mode program. 

4 





; 





5 










6 





; 

ENTRY 

none 



. 7 . 





.?.. 





8 

9 





? 

? 

EXIT 

none 



10 





5 

USES 

all 



. .U. 










12 










13 

1417 

20 

93 

01 

SETUPS 

JB 

SETLCK» SETUPO 

7 

Check for locked setup 

14 

141A 

22 




RET 




15 










16 

141B 

12 

1B2C 


SETUPOs 

CALL 

SCLRLR 

; 

Setup clear line reverse 

17 










18 

141E 

91 

6E 


SETUP1s 

ACALL 

LI 

; 

Display first line 

19 

1420 . 

.. .2.1.. 

.. .07. . 


....STRIA? . 

. ACALL.. 

. . .SFCKB . 

... .7. 

Fetch character from keyboard 

20 

1422 

75 

FO 

01 


MOV 

B, #L1TL 



21 

1425. 

90 

...14.68... 



MOV..... 

...DPTR^.JL.IT . 




1428 

71 

E9 



ACALL 

LOOKUP 

? 

Lookup command 

.. .23. 

.1.42.8... 

...8.Q . 

F4. 



.SUMP... 

.. .ST PI A.. 

; 

Keep on going 

24 










.25.. 










26 





; 

Toes! e 

on/off line 



.27. 





; 





28 

142C 

B2 

2E 


STPIBs 

CPL 

ONLINE 


Toggle on/off line 

29 

1.42E .. 

31 

...?.E. 



CALL 

INITKB 

; 

Reconfisur keyboard 

30 

1430 

80 

EC 



SUMP 

SETUP1 



.31.. 










32 










33 










34 










35 





5 5 

LOT - 

every line table 



36 





• 





37 





; 

*LOT* 

contains the Jump table 

for 

every 1ine. 

38 










39 


1432 



LOT 

EQU 

$ 



40 










41 

1432 

OD 




DB 

CR 



42 

1433 

141E 




DW 

SETUP1 

; 

Main setup line 

43 










44 

1435 

61 




DB 

-a' 



45 

1436 

141E 




DW 

SETUP1 

? 

Main setup line 

46 










47 

1438 

41 




DB 

-A" 



48 

1439 

141E 




DW 

SETUP1 

7 

Main setup 1ine 

49 










50 

143B 

74 




DB 




51 

143C 

14D7 




DW 

SETUP2 

; 

Set tabs 

52 










53 

143E 

54 




DB 

'1' 



54 

143F 

14D7 




DW 

SETUP2 

? 

Set tabs 

55 










56 

1441 

62 




DB 

'b' 



57 

1442 

1542 




DW 

SETUPS 

7 

Protocol #1 
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1 

2 

1444 

42 

DB 

'B' 


3 

1445 

1542 

DW 

SETUP3 

; Protocol #1 

4 






CS* 

1447 

63 

DB 

•' c " 


6 

1448 

16B0 

DW 

SETUP4 

; Protocol #2 

7 






8 

144 A 

43 

DB 

* C 


9 

144B 

16B0 

DW 

SETUP4 

? Protocol #2 

ib 






11 

144D 

64 

DB 

•- d - 


12 

13 

144E 

1795 

DW 

SETUPS 

5 Misc #1 

14 

1450 

44 

DB 

-D- 


15 

1451 

1795 

DW 

SETUPS 

? Misc #1 

16 






17 

1453 

65 

DB 

•” e •" 


18 

1454 

1865 

DW 

SETUP6 

; Keyboard 

19 






20 

1456 

45 

DB 

•'E' 


21 

1457 

..1865 . 

DW 

SETUP6 

; Keyboard 

23 

1439 ... 

...66. 

.DB. 

... r.f . 


24 

145 A 

18F4 

DW 

SETUP7 

? Misc #2 

.25. 






26 

145C 

46 

DB 

•" F •' 


27 

145D 

18F4 

DW 

SETUP7 

; Misc #2 

28 






29 

145F 

67 

DB 

■'s' 


30 

1460 

19DD 

DW 

SETUPS 

? Misc #3 

.31 . 






32 

1462 

47 

DB 

•- G - 


.3.3. 

.1463. 

19DD 

DW 

SETUPS 

; Misc #3 

34 






:-:5 

.1465. 

83 

DB. 

KSrn$ETUP 

? Setup key . . 

36 

1466 

1AF6 

DW 

SETUPRET 

; Re t ur n 

37 







1468 

C8 

DB 

KB—SETUP + KB—SHFT 

’ Shift setup key 

39 

1469 

1 BO 2 

DW 

SETUPSAVE 

5 Save and return 

40 






.41.. 


0013 LOTL 

EQU 

($-L0T)/3 

? Table #0 lensth 

42 






43 






44 






. 45 






46 


5 ; 

LIT - 

1 ine #1 tab!e 


47 


* 




48 



*L1T* 

contains the Jump table 

for line #1 in setup mode. 

.49 






50 

51 


146B LIT 

EQU 

* 


pjO 

146B 

31 

DB 

•-1 •- 

? Option #1 

53 

146C: .. 

142C 

DW 

STP1B 

“ Tossle on/off line 


54 


56 

57 


0001 


L1TL 


em 


i 11) 


.Ta.bl.e;. .length. 
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1 

2 

3 




. . 

LI - 1ine #1 


4 




; 




5 




> 

*L1* displays setup information for line #1. 


6 




7 




7 




; 




8 




; 

ENTRY 

none 


9 




; 




10 




; 

EXIT 

none 


11 




? 




12 




7 

USES 

all 


13 








14 








15 146E 

E4 



Lit 

CLR 

A ? Position 


16 








17 146F 

71 

FE 



ACALL 

XSTX 


IS 1471 

2A 

2A 

20 


DB 

•'** SETUP MENU A ** (Ver 1.03) 1.', <' - +80H) 


1474 

53 

45 

54 





1477 

55 

50 

20 





147A 

4D 

45 

4E 





147D 

55 

20 

41 





1480 

20 

2A 

2A 





1483 

20 

20 

28 





1486 

56 

65 

72 





1489 

20 

31 

2E 





148C 

30 

33 

29 





i48F 

20 

20 

20 





1492 

31 

2E 

AO 





.i9‘ 








20 1495 

90 

14C7 



MOV 

DPTR, #LN1B1 


21 1498 

'' 2*0 * 

2E 

03 


JB 

ONLINE, L1A 5 Get proper message for 


22 149B 

90 

14CF 



MOV 

DPTR, #LN1B2 ? on/off line 


23 149E 

* * *91 * 

01 


LIAS 

ACALL 

XSTATX Next part 


24 








25 i4A0 

71 

FE 



ACALL 

XSTX 


26 14A2 

20 

20 

20 


DB 

x MENUS -A- to -G- or -T~ for TAB', ('S'+80H) 


. i 4 A5 

* * ‘20 ' 

. 4D . 

' ‘ ' ‘45 ’' 





14A8 

4E 

55 

53 





. 14AB 

20 

2D 

41 





14AE 

2D 

20 

74 





14B1 

6F 

20 

2D 





14B4 

47 

2D 

20 





" i'467'' 

6F 

.72. 

‘ * * '20 ‘ ‘ 





14BA 

2D 

54 

2D 





. 14 m *•* 

’ ‘ 2C> * 

66 

’ ‘ 6F ‘ ‘ 





14C0 

72 

20 

54 





l4C3 

41 

42 

‘ ‘ D3 ' ‘ 





27 








28 14C6 

22 




RET 



29 








30 




■ 

7 

Line 41 

setup mode messages 


31 




7 




32 1 '4C7 

6F 

6£ 

‘ * ‘ 26' ‘' 

LNlBis 

DB 

'■ o n 1 ine', ( " * + 80H ) 


14CA 

6C 

69 

6E 





i4CD 

65 

AO 






33 14CF 

6F 

66 

66 

LN1B2S 

DB 

"off 1 in', ( •'e•' +80H) 
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14D2 20 6C 

i4*d5 6E.E$' 


69 



































£.j£ 7 HWm 

11 x 

OU'-U L.-r\ 

Md'oc.noi-c.n 

\ V X / ~~JL X 0 

— r C.E»—00 X « 

ov» vo rmjc x 
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1 





? ? 

SETUP2 

- setup mode line #2 


2 

.a 





5 

.*SETUP2#. i s .the. .setup; mode . l.ine. 

f or; . se.t / c 1 .ear. X ab£... 

4 

... 5 





* 

. 1 . 

-PTR2- 

is used as the cursor position. 

6 

7 






ENTRY 

none 


8 

9 





? 

EXIT 

none 


io 





; 




11 





5 

USES 

al 1 


12 









13 









14 

14D7 

79 

00 


SETUP25 

MOV 

PTR2 ? #0 

; -PTR2- is cursor position 

15 

14D9 

B1 

OD 


STP2AS 

AC ALL 

L2 

» Display line #2 

16 

14DB 

91 

07 


STP2BS 

CALL 

SFCKB 

; Fetch character from keyboard 

17 

14DD 

75 

FO 

04 


MOV 

B, #L2TL 


18 

14E0 

90 

1501 



MOV 

DPTR, #L2T 


19 

14E3 

71 

E9 



ACALL 

LOOKUP 

? Look up command 

20 

14E5 

80 

F4 



SUMP 

STP2B 

» Keep on going 

21 









22 









23 





? 

Move left 


24 





; 




25 

14E7 

19 



STP2CS 

DEC 

PTR2 

? Decrement 

26 

14E8 

B9 

FF 

01 


CJNE 

PTR2, #(0-1), STP2C1 

* IF wrap around THEN 

27 

14EB 

09 




INC 

PTR2 

? bump back up 

28 

14EC 

’ * ' 8*6' 

EB 


STP2C1 : 

SUMP 

STP2A 

, keep going 

29 









30 









31 





? 

Move right 


32 





* 




33 

14EE 

09 



STP2DS 

INC 

PTR2 

? Bump 

34 

14EF 

B9 

50 

oi 


CJNE 

PTR2 , #80, STP2D1 

• iF wrap around THEN 

35 

14F2 

19 




DEC 

PTR2 

? bump back down 

36 

i4F3 

'' '8b‘' 

E4 


STP2D1S 

SJMP 

STP2A 

? keep going 

37 









38 









39 





; 

Set tab 



40 





; 




41 

14F5 

D2 

D5 


STP2Es 

SETB 

FO 


42 

14F7 

"'80' 

02 



SJMP 

STP2F1 

? Set tab 

43 









44 









45 






Clear tab 


. 46 ' 





; 




47 

14F9 

C2 

D5 


STP2FS 

CLR 

FO 


48 

Wb' 

E9 



STP2F1S 

MOV 

A, PTR2 

• Get position 

49 

14FC 

12 

05A2 



CALL 

SETTAB 

5 Set/clear tab 

* ' 50 

14FF 

80 

D8 



SJMP 

STP2A 

• Keep going 


51 

$2 . 

53 

'54.... 

55 ;; L2T - line #2 table 

56 .;. 

57 _; *L2T* contains the Jump table .for line #2 .in.setup mode. 
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1 


3 

1501 



L2T 

EQU 

* 


4 1501 

82 




DB 

KB-LEFT 

? Cursor left 

5 1502 

14E7 




DUI 

STP2C 

? Move left 

6 

7 1504 

83 




DB 

KB-RIGHT 

? Cursor right 

5* 1505 

9 

14EE 




DW 

STP2D 

* Move right 

. Wi567" 

80 




DB 

KB—UP 

? Cursor up 

11 1508 

14F5 




DW 

STP2E 

; Set tab 

12 

13 150A 

81 




DB 

KB-DOWN 

* Cursor down 

14 150B 

15 

14F9 




DW 

STP2F 

? Clear tab 

.i’6. 

0004 



L2TL 

EQU 

($-L2f)/3 

; table length 

17 








18 








19 








20 








21 





L2 - 

line #2 


.22 ‘ 




* 

7 




23 




m 

7 

#L2* 

displays setup information 

for line #2 set/clear tabs. 

24 




* 

7 




25 




■ 

7 




26 




• 

7 

ENTRY 

none 


27 




• 

7 




28 




* 

7 

EXIT 

none 


29 




• 

7 




30 




M 

7 

USES 

al 1 


31 








32 

33 1500 

90 

5780 


L2s 

MOV 

DPTR, #L25MEM 

; Work with 25th line 

34 1510 

7D 

00 



MOV 

TEMP, #0 

, Counter variable 

35 1512 

78 

29 



MOV 

PTR1, #TABTAB 

? Point to tab table 

36 1514 

7A 

OA 



MOV 

INDX1, #10 

? 10 bytes 

37 1516 

E6 



L2A: 

MOV 

A, ePTRl 

? REPEAT get byte 

38 1517 

7B 

08 



MOV 

INDX2, #8 

; 8 bits 

39 1519 

FE 




MOV 

WORK 1, A 

? save value for later 

40 151A 

ED 



L2B: 

MOV 

A, TEMP 

? REPEAT 

41 151B 

04 




INC 

A 

? get and adjust position 

42 151C 

75 

FO 

OA 


MOV 

B, #10 

? calculate character 

43 151F 

84 




DIV 

AB 


44 1520 

E5 

FO 



MOV 

A, B 


45 1522 

24 

30 



ADD 

A, #'0- 

? convert to ASCII 

46 1524 

47 

FF 




MOV 

W0RK2, A 

, and save it 

48 1525 

ED 




MOV 

A, TEMP 


49 1526 

B5 

01 

02 


CJNE 

A, PTR2A, L2C 

" IF cursor = position THEN 

50 1529 

51 

7F 

09 



MOV 

W0RK2, #09H 

? change to cursor char 

52 152B 

EE 



L2C! 

MOV 

A, WORK1 

? restore tab table value 

53 152C 

33 




RLC 

A 


54 152D 

FE 




MOV 

WORK 1, A 

; replace new value 

55 152E 

50 

08 



JNC 

L.2D 

. ?.IF. .b£.C£..T.HEN. 

56 1530 

7F 

00 



MOV 

WORK2, #00H 

, change to tab char 

57 1532 

ED 




MOV 

A, TEMP 
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1 

1533 

B5 

01 

02 


CJNE 

A, PTR 

2A, L2D 

■ 

IF cursor = position THEN 


1536 

7F 

02 



MOV 

WORK2, 

#02H 

; 

change to both char 

3 

1538 

EF 



L2DS 

MOV 

A, W0RK2 

; 

get final character 

4 

1539 

FO 




MOVX 

SDPTR, 

A 


place into mem o r y 

5 

153A 

A3 




INC 

DPTR 


; 

bump pointer 

6 

153B 

OD 




INC 

TEMP 



bump count 

7 

153C 

DB 

DC 



DJNZ 

INDX2j 

L2B 

; 

UNTIL all bits 

R 

153E 

08 




INC 

ptri 


; 

bump tab table pointer 

9 

153F 

DA 

D5 



DJNZ 

INDX1, 

L2A 


UNTIL all bytes 

10 

1541 

22 




RET 







































Z29ROM5 MICROBENCH 8051 

CROSS 

ASSEMBLER <VI>-218 

24-FEB-83 15: 

30:06 PAGE 188 
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1 



. « 

SETUPS 

- setup mode line #3 



2 

3 



7 

7 

*SETUP3* runs the terminal setup 

mode to change baud rate? 

4 

5 



7 

paritY» 

duplex, and handshake. 



6 

7 



7 

7 

ENTRY 

none 



8 

9 



7 

■ 

7 

EXIT 

none 



10 








11 




USES 

al 1 



12 








13 








14 1542 

B1 

98 

SETUPS: 

ACAL.L 

L3 

; 

Display third line 

15 1544 

91 

07 

STP3A: 

ACALL 

SFGKB 

; 

Fetch character from keyboard 

16 1546 

75 

FO 

04 

MOV 

B, #L3TL 



17 1549 

90 

158C 


MOV 

DPTR, #L3T 



18 154C 

71 

E9 


ACALL 

LOOKUP 

; 

Look up command 

19 154E 

80 

F4 


SUMP 

STP3A 

? 

Keep on going 

20 








.21. 








22 



; 

Change 

baud rate 



.2.3. 








24 1550 

E5 

33 

STP3B: 

MOV 

A* BAUDRATE 

m 

7 

Search for current baud rate 

25 1552 

...75. 

FO. 

...PE. 

MOV 

B, #L3ATL 



26 1555 

90 

161E 


MOV 

DPTR, #L3AT 



.2.7. .1558 .. j 

...91 . 

04 


.ACALL... 

XSTABX 



28 155A 

40 

06 


JC 

STP3B1 


IF found THEN 

29 155C 

E5 

FO 


MOV 

A, B 


set count + 1 

30 155E 

B4 

OE 

01 

CJNE 

A, #L3ATL, STP3B1 


IF time for wrap THEN 

.3.1..15.61... 

... E4. 



.CLP. 

. 0. 


.z e .r o. 

32 1562 

12 

0E4B 

STP3B1S 

CALL 

SBR 


Set baud rate 

.33.. 1565... 

...80.. 

. OP..... 


.S.JMR.... 

. .SETUPS. 



34 








.3.5. 








36 



; 

Change 

parity 



37 



■ 





38 1567 

20 

28 

08 STP3CS 

JB 

PRTYENA, STP3C1 

; 

IF disabled THEN 

.3?. .156ft... 

.. .0 2.. 

. 28. 


.SETS.... 

. .RRTY.EN.O. 

• 

_&oahla. .parity.... 

40 156C 

C2 

29 


CLR 

PRTYSTK 

; 

normal parity 

.4.1. .15.6E.... 

... .C2. 

.20. 


.CLR. 

. PRTY.CVN. 

; 

odd parity . 

42 1570 

80 

DO 


SJMP 

SETUPS 



. 4.3..15.73... 

... 20. 

.2?. 

....07...., .3TP3C.1 ?... 

.JB. 

PRTYSTK? STP3C2 . . 

■ 

IF normal parity AND . 

44 1575 

20 

2A 

08 

JB 

PRTYEVN, STP3C3 

; 

IF odd parity THEN 

. 4.5..15.73... 

... 02. 

.20. 


.S£TP. . 

PRTYEVN . . 

■ 

maka even parity. 

46 157A 

80 

C6 


SJMP 

SETUPS 



..47..15.7C... 

...C2. 

. 23..... 

.STP3Q2:... 

. CLR . 

. .RRT.YENO. 

; 

IF stick THEN disable parity 

48 157E 

80 

C2 

SJMP 

SETUPS 



.42.1530... 

...02. 

.2.9. 

.ST.P3C3-.. 

.SETS. 

.. RR.T.YSTK. 

. 7 , 

. .IF. £yao. .THEN. at.i.ck. p.ar.i t.y. 

50 1582 

80 

BE 


SJMP 

SETUPS 




51 


52 


. 5.3. 




. 7 . 

..TW39.1.e..dWP.leX. 


54 




; 




.1584... 

...32. 

.2F. 

.ST.P3 D.:. 

.CPL.F.ULLDPLX. 

.7. .T.Q9S 1 8 .. .f.u.l.l /.foal f .. d.UP.l §!>'* . 

56 

1586 

80 

BA 


SJMP SETUPS 


.57. 
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1 . 


2 

3 



? 

Tossle 

handshake 




4 

5 

1588 

158 A 

B2 3E 

80 B6 

STP3E: 

CPL 

.SUMP.... 

HNDSHK 

SETUPS 

Toss!e 

soft/hard 

handshake 

6 

7 

8 

9 

10 

11 



! ? 

L3T - 

line #3 table 




12 

13 



? 

#L3T* 

contains the -jump table for 

line #3 in setup 

mode. 

14 

15 


158C 

L3T 

EQU 

$ 




3.6 

17 

158 C 
158D 

31 

1550 


DB 

DW 

•-1 •- 5 

STP3B ? 

Option 

Chanse 

#1 

baud rate 


18 

19 

158F 

•32 


DB 

s 2 •' ; 

Option 

#2 


20 

21 

1590 

1567 


DW 

STP3C ; 

Chanse 

pari tv 


22 

23 

1592 

1593 

33 

1584 


DB 

DW 

' 3 "' ; 

STP3D ; 

Option 
Toss 1e 

#3 

duplex 


24 

25 

1595 

34 


DB 

/ 4 •*' » 

Option 

#4 


26 

27 

1596 

1588 


DW 

STP3E 

T oss1e 

handshake 


28 


0004 

L3TL 

EQU 

<$-L3T)/3 ? 

Table 

l ensth 



29 

3b.*. 

31 

32 

33 ?? L3 - line #3 

*34*...?.. 

35 ? #L3* displays setup information for line #3. 

36 . .?.. 

37 ....5. _ _ _ _ _____ . .... 

38 .?.ENTRY hone 

39 ; 

40 . ? EXlt hone 

41 

42 .?.USES.ail.*** 

43 

‘44.*.’.. 

45 1598 E4 L3: CLR A ? Position 


‘46. 

47 1599 71 FE ACALL XSTX 


48 lS9B 
159E 

' 2A 

4E 

4D 

55 

.4*5. 

20 

DB 

• *MeNU B* 1. BAUD' 7 ( ••• +80H) . 

. *l$£i 

‘ 42 

* *2 a ' 

*20* ** 



15A4 

20 

20 

31 



.1*6*A7 

2E 

20 

42 



15A A 

41 

55 

44 



15 AD 

AO 





49 






50 15AE 

E5 

33 


MOV 

A, BAUDRATE 

51 15B0 

75 

FO 

OE 

MOV 

B, #L3ATL 
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VERSION 1.03 




1 

15B3 

90 

16 IE 



MOV 

DPTR, #L3AT 


2 

15B6 

91 

04 



ACALL 

XSTABX 

; Search for correct message 

3 

15B8 

50 

06 



JNC 

L3A 

? IF not found THEN 

4 

15BA 

75 

33 

00 


MOV 

BAUDRATE, #0 

; clear baud rate 

5 

15BD 

90 

167F 



MOV 

DPTR, #LN3B14 

? error message 

6 

1 SCO 

74 

13 


L3A: 

MOV 

A, #19 

" Position 

7 

15C2 

...31. 

01 



ACALL 

X ST ATX 

? Baud rate message 

8 

9 

15C4 

...7A. 

FE 



ACALL 

XSTX 


10 

15C6 

20 

20 

32 


DB 

- 2. PARITY-', 

(-' '+80H > 


. .1.53?... 

2 E 

20 

50 






15CC 

41 

52 

49 






15CF 

54 

59 

AO 





11 

12 

15D2 

90 

1684 



MOV 

DPTR, #LN3C1 

; No parity 

13 

15D5 

30 

23 

OF 


•JNB 

PRTYENA, L3B 


14 

15D8 

...9.0. 

1689 



MOV 

DPTR, #LN3C2 

5 Stick parity 

15 

15DB 

20 

29 

09 


.JB 

PRTYSTK, L3B 


.16 

15DE 

90 

.168 £.. 



MOV 

DPTR, #LN3C3 

; Even parity 

17 

15E1 

20 

2A 

03 


JB 

PRTYEVN, L3B 


IS 

. 15E4... 

. 9Q 

.1.693.. 



MOV 

... DP.TR,.. #LN.3C4 ... 

? Odd pac.i.tx. 

19 

15E7 

91 

01 


L3Bs 

ACALL 

XSTATX 

5 Parity message 

.2.0. 









21 

15E9 

71 

FE 



ACALL 

XSTX 


.22. 

15EB 

... 2<3. 

20 . 

33 


.DB. 

...r... 3 ,.. duplex;.,.. 

(•' -+80H) 


1 SEE 

2E 

20 

44 






. 1.5F.1... 

55 

50 

4C 






15F4 

45 

58 

AO 





.23. 









24 

15F7 

90 

1698 



MOV 

DPTR, #LN3E1 

? Full duplex 

.2.5. 

.15FA... 

... 20.. 

2F 

03 


JB 

...FULLDPLX,. L3C.. 


26 

15FD 

90 

169C 



MOV 

DPTR, #LN3E2 

; Half duplex 

.2.7. 

.1600... 

...9.1. 

01 . 


L3Cs .... 

ACALL 

XSTATX 

* Duplex message 

28 

.2.9. 

.1602... 

...71. 

.FE. 



.ACA.LL.. 

... X.ST.X. 


30 

1604 

20 

20 

34 


DB 

4. HANDSHAKE 

", <" -+80H) 


.16.07... 

.. .2E. 

.20 . 

48 






160A 

41 

4E 

44 






16.00... 

58 

.43. 

....41... 






1610 

4B 

45 

AO 





...31. 









32 

1613 

90 

16 AO 



MOV 

DPTR, #LN3G1 

? Hardware handshake 

.33. 

.16.16_ 

,.. 20..... 

3E. 

03 


JB 

HNDSHK, LSD 


34 

1619 

90 

16A8 



MOV 

DPTR, #LN362 

? Software handshake 

.35. 

.16.1C_ 

...31. 

.01 . 


L3D! 

AJMP 

XSTATX 

• Handshake message and return 

36 









37 









38 









.39. 









40 





? ? 

L3AT ~ 

line #3 table 


41 





; 




42 





; 

*L3AT# 

contains the addresses for the corresponding baud 

..43. 





; 

rates 

and the order is 

used to determine the next baud rate 

44 





; 

when changed. 


.45 









46 


161E 



L3AT 

EQU 

$ 


.4.7. 


























































zzywun; 

rilUKUBfclMUM SUD1 

L.KUoo (.VI ) ~Zl W 


1 o • : ij£, KHut 

1 VI 


. *** . Z -29. COMPUTER. TERM I NAL . F I RMWARE. VERSION . 1 ,03. 





i 

16 IE 

FF 


DB 

255 


; 19200 baud 

3 

161F 

1648 


DW 

LN3B 



4 

1621 

FE 


DB 

254 


5 9600 baud 

5 

.1622... 

164D 


DW 

.LN3B 1 . 



6 

7 

1624 

FC 


DB 



? 4800 baud 

3 

9 

1625 

1652 


DW 

LN3B3 



10 

1627 

FF 


DB 

255 


5 skip 7200 baud 

U 

1628 

167F 


DW 

LN3B14 



12 

13 

162A 

F 8 


DB 

248 


? 2400 baud 

14 

162B 

1657 


DW 

LN3B5 



15 








* 16 

1620 

FF 


DB 

255 


; skip 3600 baud 

17 

162E 

167F 


DW 

LN3B14 



IS 








19 

1630 

F5 


DB 

245 


; 1800 baud 

20 

21 

1631 

165C 


DW 

LN3B7 



22 

1633 

FF 


DB 

255 


? skip 2000 baud 

23 

1634 

167F 


DW 

LN3B14 



24 








25 

1636 

FO 


DB 

240 


? 1200 baud 

26 

1637 

1661 


DW 

LN3B8 



27 








28 

1639 

EO 


DB 

224 


? 600 baud 

29 

163A 

1666 


DW 

LN3B9 



30 








31 

163C 

CO 


DB 

192 


? 300 baud 

32 

i.630 

166B 


DW 

LN3B10 



33 








. ' . 34' 

i 63F 

"80 . 


DB 

128 


5 150 baud 

35 

1640 

1670 


DW 

LN3B11 



. 36' 








37 

1642 

52 


DB 

82 


? 110 baud 

. 38 

1643" 

''T 675 . 


DW 

LN3B12 



39 








40 

1645 

01 


DB 

1 


" 75 baud 

41 

1646 

167 A 


DW 

LN3B13 



42 








43 


OOOE 

L3ATL 

EGU 

<$-L3AT>/3 


? Table length 

. 4*4' 








45 








46 








47 








"43 



; ? 

Line 

#3 setup mode 

messages 


49 



; 





SO 








51 

1648 

31 

39 32 LN3BS 

DB 

■'X920-', (•-' 

0 •' +80H) 



164*B 

30 

BO 





52 

164D 

39 

36 30 LN3B1 s 

DB 

'9600", (*' 

•' +80H) 



i6So 

"30 . 

AO 





53 

1652 

34 

38 30 LN3B3S 

DB 

'4800', <•' 

X 

o 

CO 

+ 



1655 

30 

AO 





54 

1657 

32 

34 30 LN3B5S 

DB 

'2400 ', (•' 

'+30H) 







































Z29r’6mY ’ M ICROBENCH’ *805 1 ’ CROSS ASSEMBLER ’ ( V i V -2 i 8 '' ‘24-FEB“83 ' 1 5 s' 30 s 06 PAGE ' 191 + 
*** . Z- : 2?. .COMPUTER .TERMINAL. FIRMWARE .VERSION. .1..03 .***. 

165A 30 AO 
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.1. 165C 

31 

38 

30 

LN3B7: 

DB 

••1800% 

<-• '* +80H > 

i 65F 

30 

AO 






2 1661 

31 

■Zyp 

SO 

LN3B8S 

DB 

•" 1200 -, 

(-' - +S0H) 

1664 

30 

AO 






. 3 1666 

36 

30 

30 

LN3B92 

DB 

600 "■ 7 

( " - +80H) 

1669 

4 166B 

20 

AO 

SO 

so 

LN8BJ Os 

DB 

••■ 300 ••', 

( •- •- +80H) 

166E 

20 

AO 






5 1670 

31 

:SFi 

30 

’ LN3B11: 

DB 

-150 % 

(•' -‘ +80H > 

1673 

20 

AO 






6 1675 

31 

31 

30 

LN3B12: 

DB 

-no •-, 

(-• -+80H) 

1678 

20 

AO 






7 167 A 

37 

35 

20 

LN3B13S 

DB 

-• 75 •- 7 

( -' -' +80H > 

167D 

20 

AO 






8 167F 

65 

72 

72 

LN3B14: 

DB 

-’ e r r o ■" 7 

< - r +80H) 

1682 

6 F 

F2 






9 1684 

73 

70 

61 

LN3C1S 

DB 

•" s pa c 7 

< -' e -‘ +80H) 


1687 63 E5 


1 0 1 689 6D . 61 . 72.LN3C2 :.DB.'mark%..< . '+&0H) 


168 C 

1] 168E 

6B 

65 

AO 

76 

65 

LN3C3S 

DB 

-‘even-'7 < 

-' -‘ +80H > 

1691 

6E 

AO 






12 1693 

6F 

64 

....64. 

LN3C4S 

DB 

•-odd % ( 

•- " +80H) 

1696 

20 

AO 






13 1698 

66 

75 

6C 

LN3E1S 

DB 

<•- 

1-+80H) 

169 B 

EC 







14 169C 

68 

61 

6C 

LN3E2: 

DB 

hal -'» < •' 

f -+80H) 

169F 

E6 







15 16AO 

68 

61 

72 

LN3G1: 

DB 

-' hard war -' 

, (-‘ e •' +80H > 

3.6 A3 

64 

77 

61 





16A6 

72 

E5 






16 16A8 

73 

6F 

66 

LN3G2: 

DB 

-sof twar‘- 

7 ( •" e " +80H > 

16AB 

74 

77 

61 





16AE 

72 

E5 
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1 





; ; 

SETUP4 

~ setup mode line #4 


2 

3 





* 

*SETUP4# runs the terminal setup 

mode to change port, mode 

4 





• 

hold screen mode* and monitor mode. 

6 





; 




7 





; 

ENTRY 

none 


8 

9 





i 

EXIT 

none 


10 





; 




11 





; 

USES 

al 1 


12 









13 









14 

16B0 

bi 

F8 


SETUF4 s 

ACALL 

L4 

Display fourth line 

15 

16B2 

91 

07 


STP4A5 

CALL 

SFCKB 

Fetch character from keyboard 

16 

16B4 

75 

FO 

04 


MOV 

B, #L4TL 


17 

16B7 

90 

16EC 



MOV 

DPTR, #L4T 


18 

16B A 

71 

E9 



CALL 

LOOKUP 

Look up command 

19 

16BC 

80 

F4 



SJMP 

STP4A 

Keep on going 

20 









.2.1 









22 





; 

Toggle 

main port 


.23 





; 




24 

16BE 

12 

1E0F 


STP4B: 

CALL 

CMPORT 

Toggle port 

.25 

26 

A 651... 

80 

.... ED. 



SJMP 

SETUP4 










.,...27 









28 





; 

Toggle 

ANSI/ZDS/ADM 3/Hazel tine mode 

.29 





; 




30 

16C3 

E5 

28 


STP4C: 

MOV 

A* MODE 

Get current mode 

.3.1 

.1655.. 

... FO. 




MOV 

TEMP, A 

Save it 

32 

16C6 

53 

05 

FO 


ANL 

TEMPA, #111100006 

Mask off mode portion 

.3.3 

.16.59... 

... .23. 




.RL. 

A 

Rotate to next mode 

34 

16CA 

54 

OE 



ANL 

A, #000011105 

Mask off extra stuff 

..3.5 

.1655. 

7Q 

01 



..JN2. 

3TP4C1 

IF zero THEN 

36 

16CE 

04 




INC 

A 

bump to one 

.37 

16CF 

4D 



STP4C1S 

ORL 

A, TEMP 

Combine both ha1fs 

38 

16D0 

F5 

28 



MOV 

MODE, A 

Save new current mode 

.3.9 

.16.02... 

...31. 

.... 5B. 



.AC ALL.. 

TERMINIT 

Initialize for any terminal 

40 

16D4 

30 

43 

02 


JNB 

HAZ, STP4C2 

IF Hazel tine THEN 

.4.1 

.1607... 

...31. 

.... P. 4. 



.ACALL.. 

HAZINIT 

initialize for Hazel tine 

42 

16D9 

80 

D5 


STP4C2: 

SJMP 

SETUP4 


.4.3 









44 









.45 





.?. 

Toggl e 

hold screen mode 


46 









.4.7 

.16.0 P.... 

... .30. 

_36. 

05 

STP4DS 

.JNB. 

HSMODEF, STP4D1 


48 

16DE 

12 

0B43 



CALL 

XHSM 

IF hold screen THEN exit 

.49. 

. 1.6E.1... 

... 8.Q_ 

.CO. 



.SJMP.... 

.. 3ET.UP4. 


50 

16E3 

12 

0B3C 


STP4D1S 

CALL 

EHSM . 

ELSE enter hold screen 

51 

16E6 

80 

C8 



SJMP 

SETUP4 


52 









5:-! 









" ..54 

.55 





« 

• Toggle 

monitor mode 


56 

16E8 

B2 

3A 


STP4E: 

CPL 

MONITOR 

Toggle monitor mode 

57 

16EA 

80 

....54. 



SJMP 

SETUP4 














































/_x\ ;-T,uri? 

rfi. tnucici'ii.n ov; 

i J. 

h te. n l. cr. n \ v i ) — z i o 


-« ; ju s U <5 rHUt i VH 

#■*# Z—29 cnMPi 

IT'FR TERMINAL FIRMWARE VERSION 1.03 



i 

? 

4 







5 




? ? 

L4T - 

Line #4 table 

6 

7 




5 

*L4T* 

. .contains . the.. J.ymp. .f a.b.l.e. for;. .1. i .ne.. #4 . l.h. .S-.e.tuP. .mo.de.*.. 

9 


16 EC 


L4T 

EQU 

$ 

10 







11 

16EC 

31 



DB 

•-1 - 

12 

16ED 

16 BE 



DW 

STP4B " Toggle ports 

13 







14 

16EF 

32 



DB 

...... 

15 

16F0 

16C3 



DW 

STP4C ? Toggle mode 

16 







17 

16F2 

33 



DB 

3 

18 

16F3 

16DB 



DW 

S T P ■4 D " T o g g 1 e h o 1 d s c r e e n 

19 







20 

16F5 

34 



DB 

•‘4" 

21 

16F6 

16E8 



DW 

STP4E ? Toss 1e mo nito r mo de 

23 


0004 


L4TL 

EQU 

($~-L4T>/3 5 Table length 

24 







25 







26 







‘27 







28 




? * 

L4 - 

1 i ne #4 

2*9 




; 



30 




; 

*L4* 

displays setup information for line #4. 

31 




? 



32 




? 



33 




; 

ENTRY 

none 

34 




; 



35 




; 

EXIT 

none 

36 




; 



37 




? 

USES 

all 

38 







39 







40 

16F8 

E4 


L4S 

CLR 

A 

41 

16F9 

71 

FE 


ACALL 

XSTX 

42 

16FB 

2 A 

4D 

45 

DB 

- *MENU C* 1 . PORT , ( - -• + 8 OH) 


16FE 

4E 

55 

20 




1701 

43 

2A 

20 




1704 

20 

20 

31 




1707 

2E 

20 

50 




170 A 

4F 

52 

54 




17 OD 

AO 





43 







44 

170E 

90 

1769 


MOV 

DPTR, #LN4B1 ; Normal 

45 

1711 

30 

02 

03 

JNB 

PORTF 7 L4A 

.46* 

*1714** 

* * *90*. 

176F 


MOV 

DPTR, #LN4B2 ? Auxiliary 

47 

1717 

91 

01 

L4As 

ACALL 

XSTATX " Port message 

.48 * 







49 

1719 

71 

FE 


ACALL 

XSTX 

50 

*1*7 IB* 

20 

20 

20 

DB 

2. MODE”', <-•. - +80H) 


171E 

32 

2E 

20 
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1 


2 

3 

1726 

1729 

.90 

20 

1775 

40 

OF 


MOV 

.JB 

DPTR, #LN4D1 

ANSI, L4B 

? ANSI mode 


4 

172C 

90 

1770 



MOV 

DPTR, #LN4D2 

? ZDS mode 


er 

172F 

20 

41 

09 


JB 

ZDS, L4B 



6 

1732 

90 

1785 



MOV 

DPTR, #LN4D3 

? ADM 3 mode 


7 

1735 

20 

42 

03 


JB 

ADM3, L4B 



8 

1738 

90 

1780 



MOV 

DPTR, #LN4D4 

• Hazel tine mode 


9 

173B 

91 

01 


L4B5 

ACALL 

XSTATX 

5 ANSI/ZDS/ADM 3/Has message 


10 










11 

173D 

71 

FE 



ACALL 

XSTX 



12 

173F 

20 

20 

20 


OB 

3. HOLD SCRN", (• 

' *" +80H) 



1742 

33 

2 E 

20 







1745 

48 

4F 

4C 







1748 

44 

20 

53 







174B 

43 

52 

4E 







174E 

AO 








13 










14 

174F 

A2 

36 



MOV 

C, HSMODEF 



15 

1751 

12 

1BBF 



LCALL 

XLONOFF 

" Hold on/off message 


16 










17 

1754 

71 

FE 



ACALL 

XSTX 



.18 

1756 

20 

20 

20 


OB 

4 0 MONITOR", (- • 

" + 8 OH) 



1759 

34 

2 E 

20 







.175C... 

40 

4F 

... 4E.... 







175F 

49 

54 

4F 







1762 

52 

AO 







19 










20 

1764 

A2 

3A 



MOV 

C, MONITOR 



21 

1766 

02 

1 BBF 



.Lump. 

XLONOFF 

5 Monitor mode on/off and return 


22 










23 










24 










25 










26 





;; 

Line #4 

setup mode messages 



27 





? 





28 










29 

1769 

6 E 

6 F 

72 

LN4B1! 

DB 

•' n o rma •', < " 1 •" +80H) 




176C 

60 

61 

EC 






30 

176F 

61 

75 

78 

LN4B2! 

DB 

'auxi 1 ", <•' -+80H) 




1772 

69 

6 C 

AO 






31 

1775 

61 

6 E 

73 

LN4D1S 

DB 

-ansi -, (- -+80H) 




1778 

69 

20 

20 







177B 

20 

AO 







32 

177D 

7A 

65 

6 E 

LN4D25 

DB 

y zenith ", ( # -+80H) 




1780 

69 

74 

68 







1783 

20 

AO 







33 

1785 

61 

64 

6 D 

LN4D3S 

DB 

-‘adm 3a ", ( " •"+80H) 




1788 

20 

33 

61 







178B 

20 

AO 







34 

178D 

68 

61 

7A 

LN4D4S 

DB 

'has 150', (-0-+80H) 




’ 1790’ 

20 

31 

35 







1793 

30 

BO 
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1 

; ; 

SETUPS 

- setup mode line #5 

■f 

; 

♦SETUPS* runs the terminal setup mode to change set clock* 

4. 

« 

toss 1 e 

status line* setup wrap around, and screen saver. 

6 . 

7 

; 

ENTRY 

none 

\Z\ 

9 

; 

EXIT 

none 

10 ' * '** 
11 

. 

USES 

all 


‘12 

13 


14 

1795 

12 

1808 


SETUPS: 

CALL 

L5 ; Display fifth line 

15 

1798 

91 

07 


STPSAs 

CALL 

SFCKB > Fetch character from keyboard 

16 

179 A 

75 

FO 

04 


MOV 

B 7 #L5TL 

17 

179D 

90 

17FC 



MOV 

DPTRt #L5T 

IS 

.1.7 AO 

71 

E9 



CALL 

LOOKUP $ Look up command 

19 

17A2 

80 

F4 



SUMP 

STP5A " Keep on so ins 

20 








21 








22 





; 

Set clock 

23 





? 



24 

17A4 

12 

1B2C 


STP5B: 

CALL 

SCLRLR ? Setup clear line reverse 

25 

17A7 

E4 




CLR 

A 

26 








27 

17A8 

71 

FE 



ACALL 

XSTX 

2 S 

17AA 

45 

6 E 

74 


DB 

- Enter hours , (' +80H) 


17 AD 

65 

72 

20 





17 BO 

68 

6 F 

75 





17B3 

72 

73 

20 




29 

1 7B6 

BE 






30 

17B7 

74 

OE 



MOV 

A, #14 

31 

17B9 

12 

1B45 



CALL 

GETNUM ’ Get number 

32 

17BC 

BF 

00 

02 


CJNE 

WORK2> #0, STP5B1 5 IF zero THEN skip 

33 

17BF 

80 

D4 



SUMP 

SETUPS 

34 

17C1 

B4 

18 

00 

STP5B1: 

CJNE 

A, #24, STP5B2 

35 

17C4 

50 

CF 


STP5B2: 

JNC 

SETUPS 5 IF number <> 24 THEN 

36 

17C6 

F5 

3D 



MOV 

fHOUR 7 A 

37 

17C8 

12 

1B2C 



CALL 

SCLRLR ? Setup clear line reverse 

39 

17CB 

E4 




CLR 

A 

40 

17CC 

71 

FE 



ACALL 

XSTX 

41 

17CE 

45 

6 E 

74 


DB 

- Enter minutes “, < + 8 OH > 


17D1 

65 

72 

20 





17D4 

6 D 

69 

6 E 





17D7 

75 

74 

65 





1 70 A 

73 

20 

BE 




42 

43 

17DD 

74 

10 



MOV 

Av #16 

44 

17DF 

12 

1B45 



CALL 

GETNUM ? set number 

45 

17E2 

B4 

3C 

00 


CJNE 

A, #60* STP5B3 

46 

17E5 

50 

AE 


STP5B3: 

JNC 

SETUPS ? IF number <> 59 THEN 

47 

17E7 

F5 

3C 



MOV 

TMIN, A 

48 








49 

17E9 

E4 




CLR 

A 
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1 17EA 

F5 

3B 

MOV 

TSEC? a 

. 

clear seconds 

2 17EC 

F5 

3A 

MOV 

TCNT, A 

; 

and count 

3 17EE 

80 

A5 

SJMP 

SETUPS 




4 

5 


6 

7 




. 

Tossle 25th status line 



8 

17F0 

B2 

37 

STPSCs 

CPL L250N 

? Toggle 

status line 

9 

17F2 

80 

A1 


SJMP SETUPS 



10 








11 








12 




; 

Toggle wrap 



13 




; 




14 

17F4 

B2 

2B 

STPSD s 

CPL AUTOWRAP 

? Toggle 

auto wrap 

15 

17F6 

80 

9D 


SJMP SETUPS 



16 








17 








18 




; 

Toggle screen saver mode 



19 




? 




20 

17F8 

B2 

3B 

STP5ES 

CPL SCRNSAVE 

? Toggle 

screen saver 

21 

17FA 

80 

99 


SJMP SETUPS 




22 


23 

24 . 

25 

26 . V?’ L5T -'line #5 table 

27 


28 ? *L5T# contains the Jump table for line #5 in setup mode. 

29 


30 

31 


17FC 

L5T 

EQU 

$ 


32 

17FC 

31 


DB 

••• i ••• 


33 

17FD 

17A4 


DW 

STP5B 

? Set clock 

34 







35 

17FF 

32 


DB 

y o y 


36 

1800 

17F0 


bw 

STP5C 

" Toggle status line 

37 







38 

i 802 

33 


DB 

' 3 ' 


39 

1803 

17F4 


DW 

STPSD 

• Toggle wrap around 

46 







41 

1805 

34 


DB 

y A y 


42 

1806 

17F8 


bw 

STP5E 

; Toggle screen saver 

43 







44 


0004 

LSTL 

EQU 

(*~L5T>/3 

? Table length 


45 


. 46 .. 

47 

48 



49 

? ; 

L5 1 ine #5 

50 



51 


-B-L5* displays setup information for line #5. 

. ‘$2 . 

« 

7 


S3 

« 

7 


. 54 . 


ENtRY none 

55 

m 

7 


56 

* 

7 

EXIT none 

57 

7 
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1 




USES 

al 1 

3 






4 1808 

5 

E4 


L5: 

cLr 

A 

6 1809 

71 

9D 


ACALL 

XST 

7 180B 

2A 

4D 

45 

DB 

•*MENU D* 1. SET CLOCK 2. STATUS LINE', <' -+80H) 

' ' "l'S'CiE 

" "4'E" " 

""5S . 

20 



1811 

44 

2A 

20 



.1814'" 

'' '20 

.20. 

""31. 



1817 

2E 

20 

53 



.181 A"" 

" '45 " " 

'""54. 

"20. 



181D 

43 

4C 

4F 



.1820"" 

"48 *"' 

" " 46‘ ' ' 

20 



1823 

20 

20 

32 



.1826"" 

*' *2E " " 

20 




1829 

54 

41 

54 



" 1828 

" '55 " " 

.53. 

" "20. 



182F 

4C 

49 

4E 



1832 

45 

AO 




8 






'P 1834 

‘ A2" "' 

" " '37. 


MOO 

C, L’250N' 

10 1836 

12 

1BBF 


LCAL.L 

XLONOFF ? Status line- on/off 

ii 






12 1839 

71 

9D 


ACALL 

XST 

. 1*3 ‘ i 83 b 

20 

20 

20 

DB 

3. WRAP*', (' - -+80H) 

183E 

33 

2E 

20 



1841 

■ * 57 

. 52 . 

41 



1844 

50 

AO 




14 






15 1846 

A 2 

2 B 


MOV 

C, AUTOWRAP 

16 1848 

12 

1BBF 


LCALL 

XLONOFF ? Wrap around on'/off 

.1.7 






18 184B 

"71 . 

9D 


ACALL 

XST 

19 184D 

20 

20 

20 

DB 

4. SCREEN SAVER * , ( - +80H) 

1850 

34 

2E 

20 



1853 

53 

43 

52 



1856 

45 

45 

4E 



1859 

20 

53 

41 



i 85C 

56 

45 

52 



185F 

AO 





20 






21 1860 

A2 

3B 


MOV 

C, SCRNSAVE 

22 1862 

02 

1BBF 


LUMP 

XLONOFF ; Screen saver on/off and return 
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.SETI4F&. r.. tu P.. oxq cte. A i.ne. .#.6 . 
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keypad alternate, auto repeat, and kev click. 

6 

7 





.ENTRY... 

. .DP.Oft. . 

8 




7 



9 




; 

EXIT 

none . 

10 




; 



11 




; 

USES 

al 1 

12 







13 







14 

1865 

11 

97 

SETUP 68 

ACALL 

L 6 ? Dis p 1av sixth 1ine 

15 

1867 

12 

1407 

STP 6 A: 

CALL 

SFCKB * Fetch character from keyboard 

16 

186A 

75 

FO 

04 

MOV 

B, #L 6 TL 

17 

I860 

90 

188B 


MOV 

DPTR, #L 6 T 

18 

1870 

12 

13E9 


CALL 

LOOKUP * Look up command 

19 

1873 

80 

F2 


SJMP 

, STP 6 A .?. .Kfte.R . AD. .?Ai A9. 

20 







21 







22 




; 

Toss!e 

keypad shifted 

23 







24' 

1875 

B2 

30 

STP 6 B: 

CPL 

KPADSHTF ? Tossle keypad shifted 

25 

1877 

80 

EC 


SJMP 

SETUP 6 


26 

27 


28 

29 




7 

Tossle 

keypad alternate 


30 

1879 

B2 

si 

STP6CS 

CPL 

KPADALTF ? 

Tossle keypad alternate 

31 

187B 

80 

E8 


SJMP 

SETIJP6 


32 








33 








34 




? 

Tossle 

auto repeat 


35 




? 




36 

1S7D 

B2 

34 

STP6D: 

CPL 

REPF 

Tossle auto repeat 

37 

187F 

12 

119E 


CALL 

INITKB ? 

Re con fis ure kevb oard 

38 

1882 

80 

El 


SJMP 

SETUF‘6 


39 








40 








41 




? 

Tossle 

key click 


42 




; 




43 

1884 

B2 

33 

STP6E8 

CPL 

CLKF ? 

Tossle key click 

44 

1886 

12 

119E 


CALL 

INITKB ; 

Re c onfis ur keyb oard 

45 

1889 

80 

DA 


SJMP 

SETUP6 


46 








47 








48 








49 








50 




? 7 

L6T - 

line #6 table 


51 




7 




52 




; 

*L6T* i 

contains the Jump table for 

1 ine #6 in setup mode. 

53 








54 


1.88B 


L6T 

EQU 

$ 


55 








56 

188B 

31 



DB 

• -1 •- 


57 

188C 

1875 



DW 

STP6B 

Tossle keypad shifted 
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i 

2 

188E 

32 



OB 

2 •' 

3 

188F 

1879 



DW 

STP6C ; T0331e keypad alternate 

4 







5 

1891 

88 



OB 

*■' 3 ■' 

6 

1892 

187 El 



DW 

STP 6 E 1 ? Toggle auto re Feat 

7 







£; 

1894 

34 



DB 

-■ 4 

9 

1895 

1884 



DW 

STP6E ? Toggle key click 

' io* 







u 


0004 


L6TL 

EQU 

<*-L6T)/3 ? Table length 

12 







13 







14 







15 







. IS’ 




;; 

• " • L6 - 

i i lie #6 

17 




; 



. 1:5 




; 

*L6* 

displays setup information for line #6 

19 




; 



20 




? 



21 




; 

ENTRY 

none 

£2 




? 



23 




; 

EXIT 

none 

24 




5 



25 




? 

USES 

al 1 

26 

27 

28 

1897 

E4 


L6s 

CLR 

A ; Position 

29 







30 

1898 

71 

90 


ACALL 

XST 

31 

189 A 

2A 

40 

45 

DB 

•'♦MENU E* 1. KEYPAD SHFT y , -+80H) 


189D 

4E 

55 

20 




18 AO 

45 

2A 

20 




18A3 

20 

20 

31 




18A6 

2E 

20 

4B 




18A9 

45 

59 

50 




1 SAC 

41 

44 

20 




18AF 

53 

48 

46 




18B2 

54 

AO 




33 

18B4 

A2 

30 


MOV 

Co KPADSHTF 

34 

18B6 

71 

BF 


ACALL 

XLONOFF ? Keypad shifted on/off 

35 







36 

18B8 

71 

90 


ACALL 

XST 

37 

18BA 

20 

20 

20 

DB 

2. KEYPAD ALT-', (-' -+80H) 


18BD 

32 

2E 

20 




18C0 

4B 

45 

59 




18C3 

50 

41 

44 




18C6 

20 

41 

4C 



38 

18C9 

54 

AO 




39 

18CB 

A 2 

31 


MOV 

C, KPADALTF 

40 

1SCD 

71 

BF 


ACALL 

XLONOFF ? Keypad alternate on /off 

41 







42 

18CF 

71 

90 


ACALL 

XST 

43 

18D1 

20 

20 

20 

DB 

3. REPEAT-', -+80H) 


18D4 

33 

2E 

20 
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18D7 52 45 50 

18DA 45 4i 54 

1SDD AO 
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1 


2 18DE 

3 18E0 

”'A 2 . 

71 

””34. 

BF 


MOV 

ACALL 

C, REPF 

XLONOFF 

" Auto repeat on/off 

. 4 . 

5 18E2 

71 

9B 


ACALL 

XST 


6 18E4 

20 

20 

20 

DB 

4. CLICKS (' ■' +80H) 

18E7 

34 

2E 

20 




.ii5£A” 

’ ’ '4 o'. 

” ” 4’C. 

4'9 




18ED 

43 

4B 

AO 




7 

8 18F0 

A2 

33 


MOV 

C, CL KF 


.9"I8'F2"’ 

' "sr "* 

.B'F ” ” 


. AJMP’ ’ 

XLONOFF 

; Kev click on/off and return 
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1 

; ; 

SETUP7 

- setup mode line #7 

3 

7 

m 

7 

#SETUP7* runs the 

terminal setup mode to change auto carriage 

4 

1 

7 

return. 

auto 1ine 

feed, cursor, and frequency. 

6 

7 

m 

7 

7 

ENTRY 

none 


p 

9 

• 

7 

7 

EXIT 

none 


10 

11 

7 

m 

USES 

al 1 



12 

13 


14 

18F4 

31 

3F 


SETUP7S 

ACALL 

L7 

; 

Dis p 1av seventh line 

15 

18F6 

12 

1407 


STP7A: 

CALL 

SFCKB 

7 

Fetch character from keyboard 

16 

18F9 

75 

FO 

04 


MOV 

B, #L7TL 



17 

18FC 

90 

1933 



MOV 

DPTR, #L7T 



18 

18FF 

12 

13E9 



CALL 

LOOKUP 

; 

Look up c ommand 

19 

1902 

80 

F2 



SUMP 

STP7A 

; 

Keep on going 

20 










21 










22 





; 

T cog 1 e 

auto carriage return 



23 





7 





24 

1904 

B2 

2C 


STP7BS 

CPL 

AUTOCR 

; 

Toggle auto CR 

25 

1906 

80 

EC 



SJMP 

SETUP7 



26 










27 










28 





5 

T0991e 

auto line feed 



29 





; 





30 

1908 

B2 

2D 


STP7C: 

CPL 

AUTOLF 

? 

Toggle auto LF 

31 

190A 

80 

E8 



SJMP 

SETUP7 



32 










33 










.34' 





; 

Toggle 

cursor 



35 





" 





.36' 

190C * ’ 

' "20"'" 

.38. 

" W" 

STP7D: 

JB 

CRNBK, STP7D2 

? 

IF blinking AND 

37 

190F 

20 

32 

04 


JB 

CRUL, STP7D1 

7 

IF block THEN 

38 

1912 

D2 

32 



SETB 

CRUL 

; 

set to blink line 

39 

1914 

80 

11 



SJMP 

STP7D4 



40 










41 

1916 

C2 

32 


STP7D1: 

CLR 

CRUL 

; 

IF blink line THEN 

42 

1918 

D2 

38 



SETB 

CRNBK 

7 

set to block 

43 

191A 

80 

OB 



SJMP 

STP7D4 



44 










45 

191C 

20 

32 

04 

STP7D2: 

JB 

CRUL, STP7D3 

5 

IF block THEN 

46 

i9i F 


32' ' 



SETB 

CRUL 

; 

set to underline 

47 

1921 

80 

04 



SJMP 

STP7D4 



48 










49 

1923 

C2 

32 


STP7D3S 

CLR 

CRUL 

; 

IF underline THEN 

50 

1925 

C2 

38 



CLR 

CRNBK 

; 

set to blink block 

51 











i.927 

12 

117B 


STP7D4S 

CALL 

SETCF 

; 

Set cursor format 

53 

192 A 

80 

C8 



SJMP 

SETUP7 



54 










55 










56 





? 

T ogg1e 

line freauencv 



57 





; 
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1 

192C 

B2 

39 

STP7E: 

CPL 

FREQ ? 

Toggle frequency 

.2* 

3 

1928 

1931 

***12*. 

80 

. .j. i7B -. 

Cl 


CALL 

SJMP 

SETdP.V 

SETUP7 

Set cursor format 

4 

5 

.*6'. 

7 

y 

9 




? ? 

L7T 

- line #7 table 


.10 

11 




? 

*L7T* contains the jump table for 

line #7 in setup mode. 

.12* 

13 


1*93*3 


.L7T. 

EQU 

$ 


.14* 

15 

*1933 

1934 

* * *3T. 

1904 



.D'B* *' 

DW 

.*'*1 : *.“ 

STP7B 

Toggle auto carriage return 

.16* 

17 

1936 

32 



DB 

•- 2 •' 


.18* 

19 

1*937*** 

1908 



.DW 

.STP7C. 

Toggle auto fine feed 

20 

21 

i 93*9 
193 A 

’ 33. 

190C 



DB 

DW 

'3-' 

STP7D ; 

Toggle cursor 

.22 

23 

193C 

34 



DB 

•'4' 


.24* 

25 

*1*93*0* * * 

' "i'?>2C" " 



.*dw* * * * 

StP7E : 

Toggle line fr-eg 50/60 Hz 

.*26* 

27 


'' 0'00'4 "" 


.L7YL'. 

.EOU' 

.C*-L 7t >73.r 

Table length 

2S 

29 

30 

31 




? 7 

L7 - 

line #7 


32 

33 




• 

7 

? 

*L7* 

displays setup information for. line #7 


34* 


36 



; 

ENTRY 

hone 


37 



; 




38 



? 

* EXIT 

none 


39 



; 




40 



; 

USES 

al 1 


41 







42 

43 193F 

E4 


L7: 

CLR 

A 

? Position 

44 

45 1940 

71 

9D 


ACALL 

XST 


46 1942 

2A 

4D 

45 

DB 

•' *MENU F* 

1. AUTO CR-", ( •- " +80H) 

1945 

4E 

CjCj 

20 




1948 

46 

2A 

20 




194B 

20 

20 

31 




194E 

2E 

20 

41 




1951 

55 

54 

4F 




1954 

20 

43 

52 




1957 

AO 






47 

48 1958 

A2 

2 C 


MOV 

C, AUTOCR 


49 i95A 

71 

BF 


ACALL 

XLONOFF 

“ Auto CR on/off 


50 
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1 195C 

71 

9D 



ACALL 

XST 

2 i 95E 

20 

20 

20 


DB 

2. AUTO LF', < •- - +80H) 

1961 


2E 

20 




1964 

4‘i 

55 

54 




1967 

4F 

20 

4C 




196 A 

3 

46 

AO 





4 196C 

A2 

2D 



MOV 

C, AUTOLF 

5 196E 

71 

BF 



ACALL 

XLONOFF ? Auto LF on/off 

6 

7 1970 

71 

9D 



ACALL 

XST 

8 1972 

20 

20 

20 


DB 

3. CURSOR-, (- -+80H) 

1975 

33 

2E 

20 




1978 

43 

55 

52 




197B 

53 

4F 

52 




197E 

9 

AO 






10 197F 

20 

38 

OB 


JB 

CRNBK, L7C1 

11 1982 

90 

19B7 



MOV 

DPTR, #LN7D1 ; Blink block 

12 1985 

30 

32 

OE 


JNB 

CRUL» L7C2 

13 1988 

90 

19C0 



MOV 

DPTR, #LN7D2 ; Blink underline 

14 198B 

80 

09 



sJmp 

L7C2 

15 198D 

90 

19C9 


L7C15 

MOV 

DPTR, #LN7D3 ? Block steady 

i6 1990 

30 

32 

03 


JNB 

CRUL, L7C2 

17 1993 

90 

19D2 



MOV 

DPTR, #LN7D4 ? Underline steady 

18 1996 

19 

7 i 

A8 


L7C2S 

ACALL 

XST AT ? Cursor message 

20 1998 

71 

9D 



ACALL 

XST 

21 199A 

20 

20 

20 


DB 

4. FREQ', <*' -+80H) 

.i 99D 

‘ * 34 

“ “ 2E. 

20 




19 AO 

46 

52 

45 




19A3 

'' '51 "" 

AO 





22 







.23* 1'9A5' • ‘ 

*'' 90. 

" " 1'9B£T'' 



* MOV . 

DPTR,' ■ #U\l7Pl.V' S6 "rtz. 

24 19A8 

30 

39 

03 


JNB 

FRE®, L7D 

25 1'9'AB 

“90. 

.19'CC ' 



MOV 

DPTR; '#L|\|7P2 . i "6t> Hz. 

26 19AE 

71 

A8 


L7D! 

ACALL 

XSTAT 

'“.27. 

28 19B0 

71 

9D 



ACALL 

XST 

.‘29 i'9B2 

' * ‘30 . 

20 

48 


DB 

'0 H', (•'2•" +80H> 

19B5 

FA 






.30. 

31 19B6 

22 




RET 


.32. 







33 







.34. 







35 







.36’. 




? ? 

Line #7 

setup mode messages 

37 




? 



.38 . 

39 19B7 

62 

60 

6E 

LN7D1S 

DB 

*'b 1 r.k b 1 c , <'k'+80H> 

19BA 

“63. 

20 

62 




19BD 

6C 

63 

EB 




. 40 ‘ i’9C0 

62 

6C 

6E 

LN7D2: 

DB 

•'blnk lirr', <'e'+80H> 

19C3 

6B 

20 

6C 




19C6 

69 

6E 

E5 




41 19C9 

62 

6C 

6F 

LN7D35 

DB 

'block ', (' •' +80H) 
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19CC 
19CF 


63 

20 


6B 

20 


20 

AO 
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1 19D2 

75 

6E 

64 

LN7D45 

DB 

■"under! irr" , 

(•" e •" +8OH ) 

19D5 

65 

72 

6C 





19D8 

69 

6E 

E5 





2 19DB 

B5 



LN7F1S 

DB 

( ••5- +S0H) 


3 19DC 

B6 



LN7F25 

DB 

(6 •' +8 OH) 
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. X . 



. . 

SETUPS 

- setup mode line #8 


2 

. 3 .. 



• 

7 

7 

*SETUP8* runs the terminal setup 

mode for simple terminal 

4 

. . 5 



? 

diagnostics. 


6 

. 7 . 



• 

7 

7 

ENTRY 

none 


8 

. 5>. 



• 

• 

7 

EXIT 

none 


10 



• 

7 




. U . 



7 

USES 

al 1 


12 







. 13. 







14 19DD 

51 

8 C 

SETUPS! 

ACALL 

L8 ! 

f Display eighth line 

. 15.A9DF.... 

... 12 . 

.1.407.. 

STP8A: 

CALL 

SFCKB ! 

; Fetch character from keyboard 

16 19E2 

75 

FO 

04 

MOV 

B, #L8TL 


.IZ.X9E5.. 

...9Q. 

. LA 7.4 .. 


MOV 

DPTR» #L8T 


18 19E8 

12 

13E9 


CALL 

LOOKUP ! 

; Look up command 

. 19..19E8... 

...8.0 . 

.F2 . 


SJMP 

STP8A ! 

; Keep on going 

20 







. 21 . 







22 



5 

Fill screen 


. 23 . 







24 19ED 

71 

2C 

STPSBs 

ACALL 

SCLRLR ; 

; Setup clear line reverse 

. 25.19EF — 

... E4 . 



. .CUR . 

...A.1 

; Position 

26 







. 27 . .19F0 — 

...7.1. . 

. 9.D . 


. ACALL.. 

.. XST . 


28 19F2 

50 

72 

65 

DB 

-Press RETURN to exi', < 

" t'+80H) 

. 19E5... 

.. .73. . 

.73 . 

.... 20. 




19F8 

52 

45 

54 




. 19HB. .. 

... 55 . 

.52 . 

.... 4£ . 




19FE 

20 

74 

6 F 





..20. . 

.65. 

.... 7.8. 




1A04 

69 

F4 





.29. 







30 1A06 

74 

45 


MOV 

A, #" E ’■ 

? Display *'E' first time 

. .31.1A08. 

... 9.0. 

.5.00.0.. 

.3TP8B.I • . 

MQ.V ... 

PPTR, #CHARMEM 

■ Point to character memory 

32 1AOB 

.33. 

71 

21 


ACALL 

SFILL 

; Fill screen with char 

34 1A0D 

12 

1407 


CALL 

SFCKB 

? Fetch character from keyboard 

.35. .1A10- - • 

... .75. 

. F.O. 

....0.4. 

.MOV. 

...B>..#.L8TL.3. 


36 1A13 

90 

1A80 


MOV 

DPTRS #L8T2 


.37. 1A16 

_12. 

. 0.13A.. 


.CALL. 

STAB 

? Search the table 

38 1A19 

40 

ED 


JC 

STP8B1 

; IF not found THEN display it 

. 39. .1A1E . . 

. . . E4 . 



.CUR . 

.A ...... 


40 1A1C 

73 



JMP 

©A+DPTR 

? Jump to routine 

.41. 







42 1AID 

74 

20 

STP8B3S 

MOV 

A, #•- 

; Change funny space to real 

.43.1A1F... 

...80. 

.. E7_ 


..SUMP... . 

..sTF:sm . 

" Fill screen 

44 







.45 . 







46 



7 

Change 

attribute 


47 . 



.7. 




48 1A21 

E5 

21 

STP8Cs 

MOV 

A, ATTRIBUTES 

? Get current attributes 

. 49 . 1A23. .. 

...04 . 



. INC . 

..A . 

; B« 4 it«p to next attribute 

50 1A24 

54 

OF 


ANL 

A, #000011116 

; Mask .just attributes 

. 51..1A26.. 

... .53 . 

.21 . 

.... EO . 

. ANL _ 

ATTRIBOTES, #1111OOOOB 

; Get attributes ready 
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1 

1A29 

42 

21 

ORL 

ATTRIBUTES, A 

? Move new attributes in 

2 

1A2B 

90 

4000 

MOV 

DF'TR, -ttATRIBMEM 

" P oin t t o a ttribute me morv 

3 

1A2E 

71 

.21. 

ACALL. 

..SFILU. 

» Fill me m o r y with a 11 ribut © 

4 

1A30 

80 

AB 

SJMP 

SETUPS 



5 

6 


7 





; 

Tossle character set 


8 





5 




9 

1 A3 2 

B2 

3D 


STP8D5 

CPL 

ACHR2 

? T o s? 31 e c h a r at e r <=. e t 

10 

1A 34 

A 2 

3D 



MOV 

C, ACHR2 


1 1 

1A36 

92 

OC 



MOV 

ALTCHARA, C 

’ Place into attribut© 

12 

13 

1A 38 

80 

A3 



SJMP 

SETUPS 


14 









15 





; 

Continuous test 


16 





? 




17 

1 ASA 

75 

40 

00 

STPSEs 

MOV 

ERRORS, #0 

? REPEAT start with no error? 

IS 

1A30 

hi 

D9 



AO ALL 

ROMCHK 

! check ROM 

19 

1 ASF 

ni 

Fi 



ACALL 

RAMCHK 

? c h ec k RAM . . . 

20 

1A41 

12 

OBAC 


STF'SEO s 

CALL 

CLR'S 

» clear screen 

.21. 

.1A44... 

.. .7.1.. 

... 2Q . 



. ACALL. 

_SCtRC.R. 

? setup c 1 e a r . .1. i n ?.. r .e. v e. C A?. 

.23 

1A46 

E4 




CLR 

A 

; p o s i t i o n 

24 

1A47 

71 

9D 



ACALL 

XST 


25 

1A49 

43 

6F 



.DB. 

•'Continuous tes• 

", ( "t•” +8OH) 


1A4C 

74 

69 

6E 






1A4F 

75 

6F 

75 






1A52 

73 

20 

74 






1A55 

65 

73 

F4 





26 









27 

1ASS 

12 

02B6 



CALL 

FCKB 

? Get anv char from keyboard 

28 

1A5B 

50 

SO 



JNC 

SETUPS 

? ip any char THEN exit 

29 

1A5D 

12 

066B 



CALL 

RING 

? Ring bell 

30 









31 

1A60 

E4 




CLR 

A 


32 

1A61 

90 

5000 


STPSEl: 

MOV 

DPTR, #CHARMEM 

" REPEAT point to char memory 

33 

1A64 

71 

21 



ACALL 

SFILL 

? fill with char 

34 

1A66 

12 

02E8 



CALL 

LKB 

? 1ook at keyboard 

35 

1A69 

50 

D6 



JNC 

STF’SEO 

? IF any char THEN exit 

36 

1A6B 

04 




INC 

A 

“ bump to next char 

37 

1A6C 

70 

F3 



JNZ 

STPSEl 

, UNTIL al1 combinations 

38 

1A6E 

E5 

40 



MOV 

A, ERRORS 


39 

1A70 

60 

08 



JZ 

STP8E 

5 UNTIL errors 

40 

1A72 

El 

20 



AJMP 

ERROR 

? Jump to error routine 

41 









42 









43 









44 









45 





; ; 

LST - 

line #8 table 


46 





; 




47 





; 

*L8T* 

coritains the j um p 

table for line #8 in setup mode. 

48 









49 


1A74 



LST 

EQU 

$ 


50 









51 

1A74 

31 




DB 

•-1 


52 

1A75 

1A32 




DW 

ST PSD 

? Toggle character set 

53 
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1 1A77 

32 


DB 

'2' 


2 1A78 

3 

19ED 


DW 

STP 8 B 

• Fill screen 

4 1A7A 

33 


DB 

'3-' 


5 1A7B 

1A21 


DW 

STP 8 C 

? Change attributes 

6 






7 1A7D 

34 


DB 

'4' 


8 1A7E 

1A3A 


DW 

STP 8 E 

! Continuous test 

9 

0004 

L 8 TL 

EQU 

($-L3T)/3 

5 Table length 


10 

11 


12 

13 


14 

15 


? ? 

? 

L8T2 - line #8 table 2 


16 


» 

*L8T2* contains the Jump table 

for line #8 in fill screen 

17 



option. 


18 





19 

1A80 

L8T2 

EQU * 


20 





21 1 A8Q 

SC 


DB KB SPACE 


22 1A81 

1A1D 


DW STP8B3 

? Access code (ignore) 

.23. 





24 





.2.5.A&83... 

...OP. 


DB CR 


26 1A84 

19DD 


DW SETUPS 

? Carriage return 

.27. 





28 1A86 

88 


DB KB-SETUP 


.2.9.1A.37. ... 

... 1AF6. 


DW SETUPRET 

; Exit setup mode 

30 





.31. 1A39... 

... Q8. 


. m. .KB„3ETUP. .+. .H'B^SHFT. 


32 1ASA 

.33. 

1B02 


DW SETUPSAVE 

• Exit setup mode and save 

34 

0004 

L8TL2 

EQU ($-L8T2>/3 

; Table length 

.35... 





36 





.. .37.. 





38 





.3.9..... 



.L8.r...Une..#8. 


40 


; 



.41. 



.#L.8* fli^plavs setup information 

for line #8. 


42 


4.3 


44 




? ENTRY 

none 

.45. 




.... ?. 


46 




; EXIT 

none 

.4.7. 




; 


48 




; USES 

al 1 

.49.. 

50 

51 1A8C 

E4 



L8: CLR 

A ? Position 

52 

.53.1.A8P... 

...71..... 

.9.0. 


ACALL 

XST 

54 1A8F 

2A 

4D 

45 

DB 

• *MENU G* 1. CHAR SET S (•' '+80H) 

.1.A93.. 

...4.E.... 

55 

.2P.. 



1A95 

47 

2A 

20 



1A98 

... .30._ 

....20 . 

....20 . 
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1A9B 

31 

2E 

20 

1A9E 

43 

48 

41 

1 AA1 

52 

20 

....53.. 

1AA4 

45 

54 

AO 
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1 

2 

1AA7 

90 

1AE4 


MOV 

DPTRS #LN8B1 ? 

Primary 

3 

1 AAA 

30 

3D 

03 

•JNB 

ACHR2 7 L8A 


4 

1AAD 

90 

1 AED 


MOV 

DPTR, #LN8B2 ? 

Auxi1iarv 

5 

1 ABO 

71 

A 8 

L 8 A! 

ACALL 

XSTAT ? 

Character set 

6 








7 

1AB2 

71 

9D 


ACALL 

XST 


8 

1AB4 

20 

20 

20 

DB 

- 2. FILL SCREEN 3. 

ATtRIBUTES-' 


1AB7 

20 

32 

2E 





1 ABA 

20 

46 

49 





1ABD 

4C 

4C 

20 





1 AC 6 

53 

43 

52 





1ACS 

45 

45 

4E 





1AC 6 

20 

20 

20 





1 AC9 

20 

33 

2E 





1 ACC 

20 

41 

54 





1ACF 

54 

52 

49 





1AD2 

42 

55 

54 





1 ADS 

45 

53 





9 

1AD7 

20 

20 

20 

DB 

4. TESTS <•- " +80H) 



1 ADA 

20 

34 

2 E 





1 ADD 

20 

54 

45 





1AEO 

53 

54 

AO 




10 








11 

1 AES 

22 



RET 



12 

13 

14 








15 








16 




? ? 

Line #8 

setup mode messages 


17 




; 




18 








19 

1AE4 

6 E 

6 F 

72 LN8B15 

DB 

" n o r ma 1 S (*' +8OH) 



1 AE7 

6 D 

61 

6 C 





IAEA 

20 

20 

AO 




20 

1AED 

61 

6 C 

74 LN8B2: 

DB 

'alternate (e - +80H) 



1AFO 

65 

72 

6 E 





1AF3 

61 

74 

E5 





































Z29R0M? MICROBENCH 8051 CROSS ASSEMBLER (VI)-218 24-FEB-83 15:30:06 PAGE 210 

.**.*. Xt29. .C.QMRU.TER. TERMINAL. .FIRMWARE. .VERSION. .1,.03 .*.**.. 


, 1.5. ?.SETUPRET. -. return .from . se t u p . mo de 

2 ; 


3 





? 

*SETUPRET* exits setup mode 

without permanently saving 

4 

5 





. ? .. 

any values that have changed 

• 

6 









7 





; 

ENTRY 

none 


8 





? 




9 





7 

EXIT 

none 


10 





; 




11 





; 

USES 

none 


12 









13 









14 

1 AF6 

30 

37 

06 

SETUPRET: 

•JNB 

L25QN, SRET 

? IF 25th iir.e is on AND 

15 

1AF9 

20 

15 

03 


JB 

L25EN, SRET 

? IF not enabled for user THEN 

16 

1 AFC 

02 

1E69 



JMP 

DISPSTAT 

? display stats and return 

17 

1AFF 

E4 



8 RET: 

CLR 

A 


18 

1 B00 

80 

2C 



SUMP 

scLrl 

5 ELSE clear line and return 
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*** Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 




1 



. . 

SETUPSAVE - save setup 

confisuration 

?! 



! 

*SETUP 

SAVE# returns all 

values back to the EAROM. 

4 







6 

7 



* 

ENTRY 

none 


9 



. 

EXIT 

none 


10 

11 



5 

USES 

al 1 


12 

13 

1 B02 

FI 

22 SETUPSAVE: 

ACALL 

NVRCHK 

? Checksum the NVRAM 

14 

15 

1B04 

F5 

34 

MOV 

NVRSUM, A 

" Update checksum value 

16 

1B06 

78 


MOV 

PTRi, #25H 

? EAROM store 

17 

1B08 

90 

7000 

MOV 

DPTR, #EAROM 


18 

1B0B 

7 A 

10 

MOV 

INDX1» #16 

? 16 bvtes 

19 







20 

1 BOD 

E6 

SAV2 s 

MOV 

A? @PTR1 

? REPEAT 

21 

1BOE 

C4 


SWAP 

A 


22 

1B0F 

FO 


MOVX 

©DPTR, A 

? store upper nibble 

23 

1 B10 

A3 


INC 

DPTR 


24 

iBli 

C4 


SWAP 

A 


25 

1B12 

FO 


MOVX 

©DPTR, A 

. store lower nibble 

26 

1B13 

A3 


INC 

DPTR 


27 

1814 

08 


INC 

PTR1 

? bump pointers 

28 

1B15 

DA 

F6 

DJNZ 

INDX1, SAV2 

? UNTIL done 

29 







30 

1B17 

C2 

00 

CLR 

EAROMSAVE 


31 

1B19 

D1 

18 

ACALL 

WLATCH 

? Save EAROM 

32 

1 B1B 

D2 

00 

SETB 

EAROMSAVE 


.33. 

IBID 

D1 

18 

ACALL 

WLATCH 

; By tosslins flag 

34 







35 

1B1F 

41 

F6 

AJMP 

SETUPRET 

? Return from setup mode 
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„«♦. 1 -29 .. COMPUTER. .TERMINAL. .FIRMWARE 

VERSION.. U0J3. 





.1. 



7 7 

SFILL - 

screen fill 



.3. . 



K 

7 

*SFILL# 

fills the complete screen 

with the data given it 


4 



7 

i n t o t h 

e memory location given it 

. It does not touch the 


F, 



7 

25th line however. 



6 

.7. 



7 

* 





8 



5 

ENTRY 

(A) = character to write 



?. 





(DPTR) = memo r y 1ocation 

to start at 


10 








. XI . 




EXIT 

none 



12 

.13. 



• 

7 

USES 

DPTR, INDX1/2 



14 








15 








16 1B21 

7A 

18 

SFILLS 

MOV 

INDX1, #MAXLINE 5 

Go through all lines 


17 1B23 

7B 

50 

SFILls 

MOV 

INDX2, #NUMCHARS 5 

REPEAT 


18 1B25 

FO 


SFIL2! 

MOVX 

©DPTR, A ? 

REPEAT write character- 


19. 1B26 

. ..A3.. 



INC 

DPTR ; 

bump pointer 


20 13B27 

DB 

FC 


DJNZ 

INDX2, SFIL2 ? 

UNTIL line is done 


. ZX.XB29... 

... m . 

. F.8. 


DJNZ 

INDX1, SFIL1 ? 

UNTIL screen is done 


22 1B2B 

22 



RET 
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1 




- ; 

SCLRLR 

- setup clear line reverse video 

3 




" 

SCLRL - 

setup clear tine 

. 4' . 

5 




* 

#SCLRLR# clears 25th line with reverse video spaces. 

* '6' 

7 




7 

*SCLrL* clears 25th line and places the attributes passed 
to in on that line. 

.S’. 

9 




? 



.ro. 

11 




* 

* 

.ENTRY"" 

(A) = lower tour bits used tor attributes 

.12. 

13 




1 

.ESc'ft. 

(A) = unchanged 

.1’4. 

15 




J 

.USES. 

all 

.16. 

17 1B2C 

74 

01 


SCLRLRs 

MOV 

A» #0000000IB ? Set for reverse video 

.is. 

19 1B2E 

CO 

EO 


SCLRL: 

PUSH 

ACC ? Save attributes 

20 1B30 

21 1B33 

75 ' 
12 

FO' ' ' 

0B96 

' i8 


MOV 

CALL 

B» #MAXLINE ; Clear line betore display 

CLRLINE 

. 22 ’ '1*636''' 

23 

"DO. 

. £0 . 



.FOP. 

ACC ; Restore attributes 

. 2'4 T'6'36 "’ 

25 1B3B 

'''96. 

53 

' "5780" 
83 

EF 


MOV 

ANL 

DPTR, #L25MEM 

DPH, #ATRANL * Point to attribute memory 

26 1BSE 

27 1B40 

"7A. 

FO 

. 50 . 


SLP5 

MOV 

MOVX 

TnBxi , #M'uMi;:hARS' . 

@DPTR, A 5 REPEAT write attribute 

.28 lB4i " 

29 1B42 

"A3. 

DA 

FC 



INC 

OJNZ 

DPTR 5 bump RAM pointer 

INDX1, SLP ? UNTIL done 


'30 ‘ 1*644.22.RET 
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1 






.EETNUJ 1 . -. s<?.t.. n.umb£C. .5 .t.c i. 0 <?. 


p. 






ttGETNUM* gets a number from 0 

..255 from the keyboard. The 

4 





7 

keys 1 

"RETURN" finishes the number and "BACKSPACE" or 

5 





; 

.‘‘DELETE'', clears the .complete 

number entered. The fourth 

6 

7 





1 

chara< 

rter received automatically makes the routine return. 

8 

9 





7 

7 

ENTRY 

(A) a position on 25th line to start 

10 





« 

7 




11 





7 

EXIT 

(A) = number received 

(0..255) 

12 

13 





7 


(W0RK2) » number of c 

haracters picked up 

14 






USES 

al 1 


15 









16 









17 

1B45 

FE 



GETNUMs 

MOV 

WORK1 i A 

? Original position 

18 









19 

1B46 

7F 

00 


GNUMOs 

MOV 

WORK2 7 #0 

? Position count 

20 

21 

1B48 

7C 

00 



MOV 

WORK 7 #0 

? Running total 

22 

23 





* 

Get character 


24 

1B4A 

12 

1407 


GNUM1: 

CALL 

SFCKB 

* Get next character 

25 









26 

27 





7 

Check 

for end of line 


28 

1B4D 

B4 

OD 

02 


CJNE 

Aj #CRt GNUM2 

? IF carriage return THEN 

29 

1B50 

EC 



GNUMR: 

MOV 

At WORK 

• get number and return 

30 

1B51 

22 . 




RET 



31 









32 





; 

Check 

for backspace or delete 


33 





7 




34 

1B1$2"' 

B4 

08 

02 

GNUM25 

CJNE 

At #BS, GNUM2A 

5 IF backspace OR 

35 

1B55 

80 

03 



SJMF* 

GNUM2B 


36 

1B57 

'' B4. 

‘ " "7F" - ' ‘ 

OF 

GNUM2A: 

CJNE 

A, #RUBOUT» GNUM4 

? IF delete THEN 

37 









38 





; 

Ll e a r 

current number 


39 





; 




40 

1B5A 

'EF. 



GNUM2BS 

MOV 

A» W0RK2 


41 

1B5B 

60 

ED 



JZ 

GNUM1 

* IF no chars THEN skip it 

42 

1 BSD 

IE 



GNUM2L! 

DEC 

WORK 1 

? REF'EAT decrement position 

43 

1B5E 

DF 

FD 



DJNZ 

WORK2 j GNUM2L 

? UNTIL count = 0 

'44 









45 

1B60 

EE 




MOV 

At WORK1 

“ get position 

.46' 

IB'61 ' 

"*7i. 

9D 



ACALL 

XST 

* wipe out old number 

47 

1B63 

20 

20 

20 


DB 

(-• " +80H > 



IB'66 " 

' AO" 







48 









49 

50 

iB'67 " 

80 

D'D 



SJMP 

GNUMO 

? start over again 

51 





7 

Check 

number and po sition 


52 





; 




53 

1B69 

BF 

03 

02 

GNUM4S 

CJNE 

W0RK2 i #3, GNUM4A 

? IF all chars THEN 

54 

1 B6C 

80 

E2 



SJMP 

GNUMR 

? exit 

55 

1B6E 

B4 

3A 

00 

GNUM4AS 

CJNE 

At # ■' 9 ' +1 t GNUM4B 


56 

1B71 

50 

D7 


GNUM4B: 

JNC 

GNUM1 

“ Check upper- bounds 
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1 

1B73 

B4 

30 

00 


CJNE 

A, #'0', GNUM4C 

2 

3 

1B76 

4b 

D2 


GNUM4C s 

JC 

GNUM1 ? Check lower bounds 

4 

5 





? 

Calculate next number and display 

6 

1B78 

94 

30 



SUBB 

A* #-O y ? Subtract ASCII offset 

7 

1B7A 

CO 

EO 



PUSH 

ACC ! Save it 

8 

1B7C: 

CC 




XCH 

A, WORK 

9 

1B7D 

75 

FO 

OA 


MOV 

B, #10 

io 

1B80 

A4 




MLiL 

AB ? num s= num * i6 

n 

1B81 

2C 




ADD 

A, WORK 

i2 

1B82 

Pc 




MOV 

WORK> A ; num := num + work 

13 

1B83 

DO 

EO 



POP 

ACC ? Restore number 

.i'4' 

1 685' 

90 ' 

1B93 



MOV 

DPTR, #GNUMS 

15 

1 B 88 

25 

82 



ADD 

A,DPL 

16 

iBSA 

' PS' 

82 



MOV 

DPL? A ? Bump address {‘caution) 

17 

1B3C 

EE 




MOV 

A » W0RK1 ? Get position 

IS 

1 B 8 D 

71 

A 8 



ACALL 

XSTAT ? Display 

19 

1B8F 

OE 




INC 

W0RK1 ; Bump position 

20 

1B90 

OF 




INC 

W0RK2 ? Bump count 

21 

1B91 

80 

B7 



SJMP 

GNUM 1 ? UNTIL done 

22 








23 





? 

Must not cross any pase boundaries 

24 





? 



25 

1B93 

BO 

B1 

B2 

GNUMS: 

DB 

<'0'+80H>, < *' 1 ' +80H) 7 (' 2'+&0H), <'3'+80H>, <'4'+80H> 


1B96 

B3 

B4 





26 

1B98 

B5 

B6 

B7 


DB 

(5 +80H), ( ' 6 ' +80H), < " 7 ' +80H > , ('S' +80H ) > < ' 9 +80H) 


1B9B 

B8 

‘ B9 . 





27 








28 






IFC 

NE,HIGH (* )-HIGH ( GNUMS > 

29 






ERROR 

? 'GNUMS*' crosses a pase boundary 

30 






ENDC 
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1 




? ? 

XST - 

transmit string to 25th status line 

2 

O 




7 

7 

*XST* 

places a string of displavable characters that 

4 

5 




. 

f 0 1 1 OUJ 

the CALL onto the 25th status 1ine of the screen. 

6 

7 




\ 

ENTRY 

(A) = position on 25th line 

8 

9 




7 


String to he sent must immediately follow the call 
to this routine. Final character must have bit 

10 

11 




7 


seven set. 

12 

13 




5 

EXIT 

(A) - next po sition on 25th line 

14 

15 




? 

USES 

A, DPTR, PtRi 

16 

17 

1B9D 

DO 

83 

XST! 

POP 

DPH ? Get return address 

is 

19 

‘ 1B9F 

' ‘ ’DO 

82 


POP 

DPL 

20 

21 

1 BA1 

71 

A8 


ACALL 

XSTAT ? Output string 

22 

23 

1 BAS 
1BA5 

CO 

CO 

82 

83 


PUSH 

PUSH 

DPL ? Place return address 

DPH ? back onto the stack 

24 

1BA7 

22 



RET 
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1 ?! XSTAT - transmit string to 25th status line 


3 ? *XSTAT* places a string of displavable characters onto 

4 ?the 25th status line of the screen. 


6 


7 





; 

ENTRY 

(A) « position on 

25th line 

8 





; 


(DPTR) = address of 

string, final character must have 

9 







bit seven 

set. 

10 

11 





. 

EXIT 

(A) = next position 

on 25th line 

12 

13 





1 


< DPTR) = position 

following string 

14 

15 






USES 

A, DPTR, PTR1 



16 










17 

1BA8 

75 

AO 

57 

XSTAT: 

MOV 

P2, #HIGH (L25MEM) 


? Set address of memory 

18 

1BAB 

24 

80 



ADD 

A, #LOW <L25MEM> 


" Add’ in offset to low bvte 

19 

1BAD 

F8 




MOV 

PTR1, A 


! Point to memory 

20 

21 

1BAE 

E4 



XSTL: 

CLR . 

A 



22 

1BAF 

93 




MOVC 

A, 0A+DPTR 


5 Get data bvte 

23 

1 BBC)... 

...A3. 




.INC. 

DPTR 


; Bump ROM pointer 

24 

1BB1 

20 

E7 

04 


•JB 

ACC.7, XSTR 


• ; IF bit set THEN exit out 

25 

1BB4 

.. F.2.... 




MOVX 

©PTR1, A 


? Output data 

26 

1BB5 

08 




INC 

PTR1 


• Bump RAM pointer 

.27 

.1BB6... 

.. 8P. 

F6 



SJMP 

XSTL 


* Go forever 

28 










29 

1 BBS 

...54. 

7F 


XSTRs 

ANL 

A, #7FH 


? Mask off high bit 

30 

1BBA 

F2 




MOVX 

ePTRl, A 


? Output last data 

.31 . 

..1BBB... 

...m . 




MOV 

A, PTR' 1 


" Get pointer 

32 

1BBC 

24 

81 



ADD 

A, #-LQW <L25MEM) 

+ 

1 “ Subtract offset 


.l.BB.E... 

...22 . 




RET 



? Re t u rn 
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1 





;; 

XLONOFF 

- transmit string " 

ON** or "OFF" to 25th status line 

2 

•3 





« 

*XLONOFF* displays "ON" or 

"OFF" as indicated bv the carry 

4 





; 

f 1 as. 



6 

7 





: 

ENTRY 

(A) = position on 2 

:5 th 1 ine 

9 





. 


<c> = 0 indicates " 

OFF" 1 indicates "ON" 

10 

11 





5 

EXIT 

(A) = next position 

on 25th line 

12 

13 





; 

USES 

A, DPTR, PTR1 


14 

15 

1BBF 

90 

1BC9 


XLONOFF! 

MOV 

DPTR, #LNOFF 

? Get the "OFF" message 

16 

17 

1BC2 

1BC4 

50 

90 

03 

1 BCC 



•JNC 

MOV 

XL0N1 

DPTR, #LNON 

? IF carry set THEN 
» set the "ON" message 

IS 

19 

1 BC7 

61 

AS 


XLONis 

A.JMP 

XSTAT 

? Display message and return 

20 

21 

22 

1BC9 

6 F 

66 

E6 

LNOFFs 

DB 

- of(-f-+80H) 


24 

i’BC'C 

6 F 

6 E 

AO 

LNONs 

DB 

-on**, ( -• •' +80H) 
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1 




“ " 

XMTS - 

transmit string 


2 

3 




« 

? 

*XMTS* 

transmits a string 

of characters out of the terminal 

4 




? 

regardless of whether the 

terminal is on line or not. 

6 

7 




? 

ENTRY 

String to be sent 

must immediately follow the call 

.8 

9 




1 

? 


to this routine, 
seven set. 

Final character must have bit 

. ro¬ 
il 




1 

? 

EXIT 

none 


.1*2" 

13 




t 

? 

USES 

A, BPTR 


14 

15 

16 

17 

1BCF 

1BD1 

DO 

BO 

83 

82 

XMTS: 

POP 

POP 

DPH 

DPL 

? (BPTR) = first character 

.i'8* 

19 

1BD3 

E4 


XMTS1s 

CLR 

A 


20 

21 

1BD4 

1BD5 

93 

20 

E7 

06 

MOVC 

.JB 

A, ©A+DF'TR 

ACC. 7, XMTS2 

• REPEAT fetch character 

5 IF bit 7 set THEN exit 

.22" 

T6BS''' 
1BDB 

‘' * V2 . 

A3 

■"T3W 


.CALC'' ’ 

INC 

TRANSMIT 

BPTR 

“ transmit character 

? bump pointer 

.24* 

25 

1 BBC 

80 

F5 


SUMP 

XMTS1 

• ijNTiL forever 

* 26' 
27 

IB BE 
1BE1 

12 

74 

139B 

01 

XMTS2: 

CALL 

MOV 

TRANSMIT 

A, #1 

? Transmit last character 

28 

1BE3 

73 



JMP 

©A+DPtR 

• Return to code after string 
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1 

? XMTC “ transmit character 

2 

*XMTC* transmits one character at the current cursor position 

4 

including the appropriate escape sequences for entering and 

6 

7 

terminal is in. If the character is protected then no 
action is taken. 

8 

9 


10 

11 

ENTRY (A) = current transmit mode 

XPOS and YPOS point to screen coordinate 

12 

13 • 

EXIT (A) ~ current transmit mode (updated) 

14 ; 

15 5 

USES al1 


i'6' 

17 


.18 'iB£4 

CO 

21 


XMTC 5 

PUSH 

ATTRIBUTES 

; 

Save attribute bvte 

19 1BE6 

CO 

EO 



PUSH 

ACC 

; 

Save current attributes 

20 

21 1BE8 

30 

25 

OA 


■JNB 

GATM* XLO 

. 

IF not GATM THEN 

22 ife'Efe 

12 

0188 



CALL 

CPF 


c h e c k f o r p r o t e c t e d 

23 1BEE 

50 

05 



JNC 

XLO 


IF protected THEN 

.'**'24‘Tbr:> 

DO 

EO 



POP 

ACC 

? 

restore values 

25 1BF2 

DO 

21 



POP 

ATTRIBUTES 



26 1BF4 

27 

22 




RET 


5 

and return 

28 1BF5 

E5 

11 


XLO: 

MOV 

A? XPOS 



29 1BF7 

85 

12 

FO 


MOV 

B, YPOS 



30 iBFA 

31 

12 

0503 



CALL 

CL A 

1 

Calculate line address 

'32*1 BED" 
33 

' ' ' 00''' 

FO 



POP 

B 

? 

Get current attributes 

.3'4' 'i BFF"' 

"53. 

' 83. 

"EF. 


ANL 

DPH ? #ATRANL 

? 

Mask to attribute memory 

35 ICO2 

EO 




MOVX 

A, ©DPTR 



.36‘TC0'3''' 

" F5. 

.2'i. 



MOV 

ATTRIBUTES, A 

5 

Get current attributes 

37 1COS 

43 

83 

10 


ORL 

DPH, #CHRORL 

; 

Mask to character memory 

. 38 i'C'dS' 

"EO . 




. MOVX 

A, ©DPTR 



39 1C09 

A2 

E7 



MOV 

C, ACC.7 

; 

Get alt char flag 

. 40'T CO6 

"82 . 

OC 



MOV 

ALTCHARA, C 

, 

Place in proper location 

41 1COD 

54 

7F 



ANL 

A, #7FH 

; 

Mask alternate char set 

. 42' T COF " 

43 

''' C2 . 

OD 



CLR 

GRPH 

? 

Clear graphic flag 

. 4'4' lC'n " 

* B4 

"" 20' 

''' oo . 


. C JNE ''' 

A, #•' - f , XLOA 



45 1C14 

40 

07 


XLOAs 

JC 

XL1 

; 

IF graphic char THEN jump 

46 1C i 6 

47 

' B4 . 

"7F . 

"OF . 


CJNE 

A, #RUBOUT, XL3 

5 

IF di s p 1 ayah 1 e THEN J uitip 

. 48 . 




5 

Character is graphic 



49 




? 





.50 "lC'i9’" 

"74. 

"'5£" " 



MOV 

A, 

? 

Map 7Fh to 5Eh 

51 1C1B 

80 

09 



SUMP 

XL2 



.52. 

53 1C1D 

B4 

IF 

04 

XLls 

CJNE 

A, #1FH, XL1A 

. 

Special case map 

.54 "1C20 " 

" "74. 

5F 



MOV 

A, 



55 1C22 

80 

02 



SJMP 

XL2 



56 1C24 

44 

60 


XL1A2 

ORL 

A, #011000006 

7 

Make graphic printable 


57 
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1 

1C26 

D2 

00 


XL2S 

SETB 

GRPH 

7 

Set graphic flag 

2 

3 





« 

Save character to output 



4 

5 

1C28 

CO 

EO 


7 

XL3s 

PUSH 

ACC 



6 

7 





7 

•See i f 

character is graphic character 

3 

9 

1C2A 

20 

00 

30 

7 

JB 

GRPH, XL4 

7 

IF not graphic AND 

.1*0* 





' 





11 

1C2D 

30 

F5 

50 


JNB 

B.5, XL7 

; 

IF previous was graphic THEN 

.12' 

TC30*' * 

d2. 

*"*F5. 



CLR 

B. 5 

7 

clear graphic flag 

13 










i*4 

TC'C-ii:' 

'30. 

""40* ** 

* *22* * 


JNB 

ANSI, XL3C 

• 

IF ANSI mode THEN 

15 

1C35 

20 

F4 

13 


JB 

B.4, XL3B 

; 

IF previous riot alt THEN 

.1 6* 

TC'38*'' 

"20. 

**"o*c. 

.0*9. 


.* JB* 

ALTCHARA, XL3A 

? 

I*F this not alt THEN 

17 

1C3B 

71 

CF 



ACALL 

XMTS 

; 

transmit "EXIT GRAPHIC MODE" 

.rs* 

TC3B''' 

" "iff. 

*’"5£. 

*"3i 


DB 

ESC, 'Cil', ( ' m " +SOH) 




1C40 

31 

ED 







19 

1C42 

80 

49 



SJMP 

XL7 



20 










.2T' 

l'C'44'' ’ 

*71. 

""CF. 


XL3ft8 . 

ftCALL 

XMTS 

; 

ELSE this is ait THEN 

22 

1C46 

IB 

28 

B1 


DB 

ESC, 1 - +80H) 

! 

transmit "ENTER ALT MODE" 

23 1C49 

80 

' 2E 



SJMP 

XL4SET 

9 

7 

flag in alt now 

24 










.25* 

TC4B*' * 

"2*0. 

OC 

* F6 

X L*3*Bs * 

JB 

‘ALTCHARA, XL3A 

7 

ELSE IF this not alt THEN 

26 

1C4E 

71 

CF 



ACALL 

XMTS 

• 

7 

transmit "ENTER NORMAL" 

27 

1C50 

IB 

28 

C2 


DB 

ESC, •*< •', ( ■*B ’* +80H) 



28 

1C53 

C2 

F4 



CLR 

B. 4 

; 

flag in normal now 

29 

1C55 

** * 80. 

36 



SJMP 

XL7 



30 










31 

1C57 

71 

CF 


XL3C: 

ACALL 

XMTS 

? 

ELSE transmit in ZDS mode 

32 

1C59 

IB 

C7 



DB 

ESC, < G ■' +80H) 



33 

1C5B 

"80. 

30 



SJMP 

XL7 



34 










35 

1C5D 

2*0 

.F5 

* *" *20 

XL4S 

JB 

B.5, XL7 

? 

IF previous not graphic THEN 

36 

1C60 

02 

F5 



SETB 

B. 5 

7 

flag changes 

37 










38 

1C62 

30 

40 

24 


JNB 

ANSI, XL4C 

; 

IF ANSI mode THEN 

39 

1C65 

20 

F4 

15 


JB 

B.4, XL4B 

’*; * 

IF previous normal THEN 

40 

1C68 

20 

OC 

09 


JB 

ALTCHARA, XL4A 

; 

IF not alt char THEN 

41 

1C6B 

71 

CF 


XL4AAS 

ACALL 

XMTS 

* *; * 

transmit "ENTER GRAPHIC" 

42 

1C6D 

IB 

5B 

31 


DB 

ESC, - CIO', ( 'm•' +80H) 




1C70 

30 

ED 







43 

1C72 

80 

19 



SJMP 

XL7 



44 










45 

1C74 

71 

CF 


XL4A: 

ACALL 

XMTS 

, 

ELSE 

46 

1C76 

IB 

28 

BO 


DB 

ESC, -*< •', < '0 ' +80H) 


transmit "ENTER ALT* GRAPHIC" 

47 

1C79 

02 

F4 


XL4SET: 

SETB 

B. 4 


flag in alt now 

48 

1C7B 

80 

10 



SJMP 

XL7 



49 










50 

1C7D 

20 

OC 

F4 

XL4B: 

JB 

ALTCHARA, XL4A 

? 

ELSE this is normal THEN 

51 

1C80 

71 

CF 



ACALL 

XMTS 

; 

transmit "ENTER NORMAL" 

52 

1C82 

IB 

28 

C2 


DB 

ESC, (-B-+80H) 



53 

1C85 

C2 

F4 



CLR 

B. 4 

; 

flag in norma1 now 

54 

1C87 

80 

E2 



SJMP 

XL4AA 


and place into graphic 

55 
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1 

1089 

71 

OF 


XL40s 

ACALL 

XMTS 


ELSE transmit in ZDS mode 

2 

i~t 

1C8B 

IB 

06 



DB 

Esc, '< F•' +80H) 



4 

5 






See i f 

character is in reverse 

video 

6 

7 

1C8D 

02 

D5 


XL7! 

CLR 

FO 


Clear *‘CHANGE , ‘ f 1 as 

8 

1C8F 

20 

08 

OE 


JB 

RWA, XL8 


IF current not rev video AND 

9 

1092 

30 

FO 

IB 


•JNB 

B.O, XL9 

? 

IF previous was rev video THEN 

10 

11 

1095 

02 

FO 



CLR 

B.O 

? 

clear rev video 

12 

i 097 

20 

40 

14 


JB 

ANSI, XL8A 

; 

IF ZDS mode tHEN 

13 

109 A 

71 

OF 



ACALL 

XMTS 

; 

output ’’EXIT REV VIDEO” 

* 14 

iC9C 

IB 

FI 



DB 

ESC, ( 'g•" +80H> 



15 

1C9E 

80 

10 



SJMP 

XL9 



16 










17 

ICAO 

20 

FO 

OD 

XL8s 

JB 

B.O, XL9 

? 

IF previous not rev video THEN 

l:=: 

ltA8" 

D2 

' FO 



SETB 

B. 0 

5 

set rev video 

19 










.20' 

TcAS'" 

20 

40 

06 


JB 

ANSI, XL8A 

; 

IF ZDS mode THEN 

21 

10 AS 

71 

OF 



ACALL 

XMTS 

5 

output ’’ENTER REV VIDEO” 


ICAA 

IB 

FO 



DB 

ESC, ( • P- +86H)' 



23 

10 AC 

80 

02 



SJMP 

XL9 



2’4' 










25 

1 CAE 

D2 

D5 


XL8AS 

SETB 

FO 

; 

ELSE flas chanses 

26 










27 





; 

See if 

character is underline 



.28 





; 





29 

1CBO 

20 

09 

07 

XL9! 

JB 

UNDLNA, XL10 

; 

IF not underline AND 

. 30' 










31 

1083 

30 

FI 

OB 


JNB 

B.l, XL11 

? 

IF previous was underline THEN 

. 32' 

1CB6 

" C2 " " 

.n"' " 



.'C:L8. 

B.i ' ' 

; 

clear underline flag 

33 

1 CBS 

80 

05 



. SJMP 

XL10A 

? 

flag changes 

.34' 










35 

1CBA 

20 

FI 

04 

XL 10s 

JB 

B.l, XL11 

; 

IF previous not underline 

36 

TC61D " 

'' D2. 

""FI. 



.sets■'' 

"BIT . 

7 

flag changes’ 

37 

1CBF 

D2 

D5 


XLlOAs 

SETB 

FO 



.38' 










39 





; 

See if 

character is blinking 



40 





? 





41 

1001 

20 

OA 

07 

XL11 s 

JB 

BLINKA, XL12 

; 

IF not blinking AND 

.42' 










43 

1004 

30 

F2 

OB 


JNB 

B.2, XL 13 

s 

IF previous was blinking THEN 

'4'4‘ 

1007 


.F 2‘ " * 



CLR 

B. 2 

; 

clear b1inkins f1 as 

45 

1009 

80 

05 



SJMP 

XL12A 

; 

flag changes 

46 










47 

1 COB 

20 

F2 

04 

XL 12s 

JB 

B.2, XL13 

; 

IF previous not blinking THEN 

.48 ‘ 

TC'CE''' 

'"02. 

.F2 " ' 



SETB 

B.2 

* 

flag changes 

49 

1CDO 

D2 

D5 


XL12A5 

SETB 

FO 



.50* 










51 





; 

See i f 

character is half intensity 


.«=?,£■ * 





; 





53 

1CD2 

20 

OB 

07 

XL 13s 

JB 

HALFIA, XL14 

? 

IF not half AND 

.54' 










55 

1 CDS 

30 

F3 

OB 


JNB 

B.3, XL15 

? 

IF previous was half THEN 

56 

1CD8 

02 

F3 



CLR 

B. 3 

7 

clear half flag 

57 

1 CD A 

80 

05 



SJMP 

XL14A 

«t 

7 

flag changes 
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1 


2 

1CDC 

.20 

F3 

04 

XL 14 s 

JB 

B. 3, XL15 

7 

IF previous not half THEN 

3 

1 CDF 

D2 

F3 



SETB 

B. 3 

; 

flag changes 

4 

5 

1CE1 

D2 

D5 


XL14A: 

SETB 

FO 



6 

7 





7 

See if 

character is alternate 

graphic 

8 

9 

ICE 3 

20 

OC 

19 

XL 15s 

JB 

ALTCHARA, XL16 

? 

IF not alt AND 

10 

ICE 6 

30 

F4 

31 


JNB 

B.4, XL17 

; 

IF previous was alt THEN 

11 

1CE9 

C2 

F4 



CLR 

B. 4 

; 

clear alt flag 

12 

13 

1CEB 

30 

40 

2A 


JNB 

ANSI, XL16B 

. 

IF ANSI mode THEN 

14 

1 CEE 

71 

CF 



ACALL 

XMTS 

; 

transmit H EXIT EVERYTHING" 

15 

1 CFO 

IB 

28 

C2 


DB 

ESC, ( -B'+SOH) 



16 










17 

1CF3 

30 

F5 

24 


JNB 

B. 5, XL17 

; 

IF graphics mode THEN 

18 

1CF6 

71 

CF 



ACALL 

XMTS 

; 

transmit "ENTER GRAPHIC MODE" 

19 

1CF8 

IB 

5B 

31 


DB 

ESC, 'CIO', <'m'+80H) 




1CFB 

30 

ED 







20 

1CFD 

80 

IB 



SJMP 

XL17 



21 

22 

1CFF 

20 

F4 

18 

XL 165 

JB 

B.4, XL17 

? 

IF previous not alt THEN 

23 

1D02 

D2 

F4 



SETB 

B.4 

7 

flag changes 

24 










25 

1D04 

30 

40 

11 


JNB 

ANSI, XL16B 

7 

IF ANSI mode THEN 

26 

1 DO 7 

20 

F5 

07 


JB 

B.5, XL16A 

» 

7 

IF no graphics THEN 

27 

IDO A 

71 

CF 



ACALL 

XMTS 

; 

transmit "ENTER ALT MODE" 

28 

1 DOC 

IB 

28 

B1 


DB 

ESC, ( ' 1*' +80H> 



29 

1 DOF 

80 

09 



SJMP 

XL 17 



30 










31 

1D11 

71 

CF 


XL16A: 

ACALL 

XMTS 

; 

ELSE transmit "ENTER ALT GRAPHIC" 

. 32 

1D13 

IB 

28 

BO 


DB 

ESC, ( '0•' +80H) 



33 

.34 

1D16 

80 

02 



SJMP 

XL17 



35 

1D18 

D2 

D5 


XL16B: 

SETB 

FO 



36 










37 

.38. 





. 

Transmit any changes 



39 

1D1A 

30 

D5 

46 

XL17: 

JNB 

FO, XL20 

; 

IF no changes THEN skip 

.,4ft 










41 

42 

1D1D 

20 

40 

IF 


JB 

ANSI, XL18 

* 

Check for mode 

43 





; 

ZDS mode changes 



.44 





; 





45 

1D20 

71 

CF 



ACALL 

XMTS 

7 

set attributes 

4.6 

XQZ2. .. 

... LB. 

F3 



DB 

ESC, (-s'+SOH) 



47 

1D24 

CO 

FO 



PUSH 

B 

7 

save attributes 

..4.8. 

.Ul26... 

. E5 

FO 



MOV 

• A, B 

7 

reorder bits 

49 

1D28 

13 




RRC 

A 

7 

get reverse video 

50 

1D29 

13 




RRC 

A 

7 

get under 1ine 

51 

1D2A 

92 

F3 



MOV 

B . 3 , C 

7 

put in position 

52 

. 1D2C ... 

...13.... 




RRC 

A 

* 

7 

get blink 

53 

1D2D 

92 

FI 



MOV 

B. 1, C 

7 

put in position 

54 

1D2F 

13 




RRC 

A 

7 

get half intensity 

55 

1D30 

92 

F2 



MOV 

B. 2, C 

7 

put in position 

56 

1D32 

E5 

FO 



MOV 

A, B 








































*** . COMPUTER. TERMINAL .FI f RMWARE. .VERSION . 1, ft:?. ***, 


1 

1D34 

54 

IF 



ANL 

A? #000111110 

; 

mask proper bits 

2 

1D36 

24 

30 



ADD 

A, #-0-‘ 

; 

add offset for sequence 

3 

1D38 

12 

139B 



CALL 

TRANSMIT 

; 

output attribute data 

4 

1D3B 

DO 

FO 



POP 

B 

; 

restore attributes 

5 

1 DSD 

80 

24 



SUMP 

XL20 



6 

7 





. 

ANSI mode changes 



8 

9 

1D3F 

71 

CF 


? 

XL18S 

ACALL 

XMTS 

. 

clear any prev attributes 

10 

11 

1D41 

IB 

5B 

BO 


OB 

ESC 7 l •- , ( -0 - +80H5 



12 

1044 

30 

F3 

04 


JNB 

B.3, XL18B 

; 

IF half intensity THEN 

13 

1047 

71 

CF 



ACALL 

XMTS 



14 

15 

1049 

3B 

B2 



OB 

•-? ( •' 2 *' +80H) 



16 

1D4B 

30 

FI 

04 

XL18BS 

•JNB 

B.i, XL18C 

; 

IF underline THEN 

17 

1D4E 

71 

CF 



ACALL 

XMTS 



18 

19 

1050 

3B 

B4 



OB 

( •' 4 •" -+-80H) 



20 

1052 

30 

F2 

04 

XLlSCs 

JNB 

B.2 7 XL180 

? 

IF blinking THEN 

21 

1055 

71 

CF 



ACALL 

XMTS 



22 

1057 

3B 

B5 



OB 

( " 5 " +80H) 



23 










24 

1059 

30 

FO 

04 

XL180: 

JNB 

B.O 7 XL18E 

; 

IF reverse video THEN 

25 

1 DSC 

71 

CF 



ACALL 

XMTS 



26 

1D5E 

3B 

B7 



OB 

'9', (*•’7■" +80H> 



27 










28 

1060 

71 

CF 


XL18E: 

ACALL 

XMTS 

; 

output last character 

29 

1062 

ED 




OB 

(•" m ' +80H) 



30 










31 

1063 

DO 

EO 


XL20S 

POP 

ACC 



32 

1065 

12 

139B 



CALL 

TRANSMIT 

? 

Output character 

33 










34 

1068 

53 

FO 

3F 


ANL 

B, #0011 HUB 

? 

Mask previous 

35 

1D 6 B 

E5 

21 



MOV 

A, ATTRIBUTES 



36 

*1060 '■* 

54 

3F 



ANL 

A? #001 mi IB 

; 

Mask current 

37 

1 D 6 F 

45 

FO 



ORL 

A, B 

; 

Combine to make new previous 

38 

1071 

DO 

21 



.POP 

ATTRIBUTES 

; 

Restore true attributes 

39 

1073 

22 




RET 
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*** Z-29 COMPUTER TERMINAL FIRMWARE 

VERSION 1.03 





1 




5 > 

XMTL - 

transmit line 


2 

3 




» 

7 

XMTL1 - 

entry 

to transmit 1ine 


4 





*XMTL* 

transmits the entire contents of the line as defined 

5 




7 

bv transmit character *XMTC*. 


6 

7 




7 

• 

7 

*XMTL1# 

needs 

a current transmit mode. 

8 

9 




7 

7 





10 




7 

ENTRY 

(A) « 

current transmit 

mode <*XMTL1*> 

11 




9 

7 


YPOS 

points to screen 

1 i ne 

' ' 12 




7 





13 




7 

EXIT 

(A) = 

current transmit 

mode (updated) 

i4 









15 




a 

7 

USES 

al 1 



16 









17 









18 

1D74 

E°4 


XMTL: 

cLr 

A 


" Start with ho attributes 

19 

1D75 

CO 

11 

XMTLis 

PUSH 

XPOS 


? Save current position 

20 

1D77 

75 

o 

o 


MOV 

XPOS, 

#0 

■ Start at beginning of line 

21 

1D7A 

71 

E4 

XML2: 

ACALL 

XMTC 


" REPEAT transmit character 

22 

1D7C 

05 

11 


INC 

XPOS 


? bump position 

23 

1D7E 

AC 

11 


MOV 

WORK, 

XPOS 


24 

1D80 

'' BC 

50 F7 


CJNE 

‘ WORK, 

#NUMCHARS, XML2 

! UNTIL done 

25 

1D83 

DO 

11 


POP 

XPOS 


, Restore position 

26 

1D85 

FC 



MOV 

WORK, 

A 

? Save (A) 

27 

1 D86 

12 

04EA 


CALL 

BLINAD 

, Update address 

28 

IDS'? 

’ ’ EC 



MOV 

A, WORK 

, Restore (A) 

29 

1 D8A 

22 



RET 



, Return 
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1 




7 7 

SXMTC - 

special transmit character 

2 

3 




u 

7 

7 

*SXMTC* 

transmits the character 

at the current cursor 

4 

5 




? 

position as defined bv transmit 

character *XMTC*. 

6 

7 




7 

7 

ENTRY 

none 


8 

9 




7 

7 

EXIT 

none 


1*6 




7 




11 




• 

7 

USES 

al 1 


.ra. 








13 








14 itfSB 

" 30' ‘ * 

40 

OF 

* 3)(M'Tt:: ' 

•JNB 

ANSI, SXC1 

; IF ANSI mode THEN 

15 1D8E 

12 

09D1 



CALL 

GNP 

? set parameter 

.*T6* ID'9'1 

.. - 60 .. • • 

""T9. 



.jz ’ 

XMTP 

? IF zero THEN xmt page 

17 1D93 

14 




DEC 

A 


.T8* iD'94‘ 

'' *60*' ’' 

.T2"" ’ 



.j'Z. 

S'XMTL 

? IF one THEN xmt line 

19 1D96 

14 




DEC 

A 


20 f D97 

60 

04 



JZ 

SXC1 

? IF two THEN xmt character 

21 1D99 

14 




DEC 

A 


.22' 1 D'9A' 

' ‘ '60'''' 

" " 2A. 



.J2 ‘. 

XMT25" ’ 

? IF three THEN xmt 25th iine 

23 1D9C 

22 




RET 


" ELSE return 

. 24 . 

25 1D9D 

CO 

3F 


SXCls 

PUSH 

PFIELD 

? Save protected fields 

. 26’ 1D'9P 

"75"" 

"" 3F. 

■' * oo. 


MOV 

PPfE'Lt)'.' "#tf. 

? Make none protected 

27 1DA2 

E4 




CLR 

fit 

? No attributes set 

.28 i fc»A3 

71 

E4 



.ACALL 

XMTC 

5 Transmit character 

29 1DAS 

DO 

3F 



POP 

PFIELD 

5 Restore protected fields 

. 80' TD'A7' 

* * 22" ‘ ‘ ’ 




.RET. 
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1 



. - 

SXMTL - 

special transmit line 

3 



; 

*SXMTL* 

transmits the 

entire contents of the line as defined 

4 

cr 



« 

bv transmit character 
bv a carriage return. 

■B-XMTC*. The end of the line is signaled 

6 

7 



! 




O 

9 




ENTRY 

none 


10 

11 



1 

EXIT 

none 


12 

13 



? 

USES 

al 1 


14 

15 

IDAS 

B1 

74 SXMTLs 

ACALL 

XMTL 

? Transmit line 

16 

i O'A A' 

‘ ‘ ‘ 80 

14 

SUMP 

XMP3 

? Send CRi be!1 * and return 



































Z29RGM? 

MICROBENCH 8051 

CROSS ASSEMBLER (VI)-218 

24-FEB-83 15: 

30:06 

PAGE 228 

*** 2-29 COMPUTER. TERMINAL. FIRMWARE 

.VERSION. . 1 ... 03 




.1. 




XMTP - 

transmit page 

2 

.a 





*XMTP* 

transmits the entire contents of the pase (excluding 

4 




; 

25th line) as 

defined bv transmit character *XMTC#. The end 

.5. 




? 

.c»f. .the 

pase is sisnaled t»v a carriage return. 

6 

. 7 




.?. 




8 

9 




7 

ENTRY 

none 


10 




; 

EXIT 

none 


.JU. 




; 




12 




; 

USES 

al 1 


.13 








14 








15 

1DAC 

E4 


XMTPs 

CLR 

A 

? Start with no attributes set 

16 

1DAD 

CO 

12 


PUSH 

YPOS 

? Save current position 

17 

1DAF 

...73. 

12 00 


MOV 

YPOS, 

#0 

18 

1DB2 

B1 

75 

XMP15 

ACALL 

XMTL1 

; REPEAT transmit line 

. X?.. 

JJPP.4... 

...05. 

.xz . 


INC 

YPOS 

• bump position 

20 

1DB6 

AC 

12 


MOV 

WORK, 

YPOS 

.21 . 

1.PB8... 

... m. . 

.18..F7 .. 


CJNE 

WORK, 

#MAXLINE, XMP1 5 UNTIL done 

22 








..23. 

1.PP.B... 

.. .0.0.. 

12 

XMP2S 

POP 

YPOS 

* Restore position 

24 

1DBD 

12 

04EA 


CALL 

BLINAD " Update address 

26 

1DC0 

71 

CF 

XMP3: 

ACALL 

XMTS 

5 Send CR to terminate pase 

. .27 

. X RC2 .. t 

8D 



DB 

< CR+80H) 

28 








29 

1 DCS 

02 

066B 


JMP 

RING 

5 Signal done to user 
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1 





7 7 

XMT25 - 

transmit 25th line 


2 

3 





7 

m 

7 

*XMT25* 

transmits the 25th line in 

the same manner as *XMTL* 

'4' 

5 





7 

m 

7 

but only if the 25th line is enabled. The end of the line 
is signaled bv a carriage return. 

6 

7 





m 

7 

» 

7 




.3* 

9 





7 

7 

.ENTRY•" • 

none 


.10 

11 





7 

7 

. EXIT . 

none 


.T2' 

13 





m 

7 

USES 

ali 


.14' 

15 

1DC6 

30 

15 

F7 

XMT25: 

•JNB 

L25EN» XMP3 ? 

IF 25th line enabled THEN 

.T6' 

17 

1DC9 

1DCB 

' * CO- 
75 

.. 

12 

18 


. PUSH . 

MOV 

YPOS 

YPOS, #MAXLINE ? 

save current position 
do 25th line 

. i 8‘ 

19 

‘ idCE''' 
1DD0 

’' "BT 
80 

.74. 

E9 



ACALL 

SUMP 

XMTL ? 

XMP2 ? 

transmit 25th line 
restore* update* return 
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1 




. . 

PRINT - 

print page 



2 

3 




! 

*PRINT* 

acts exactly like *X'MTP# 

(transmit page) except that 

4 

5 




7 

the data goes out to the opposite 
a carriage return and line feed. 

port and every line ends 

with 

6 

7 




* 

7 





8 

9 




7 

ENTRY 

none 



10 

11 




m 

EXIT 

none 



12 

13 




' 

USES 

al 1 



i 4 

15 1DD2 

D2 

23 


PRINTS 

SETB 

PRNTF ? 

Flag printing 


16 

17 1DD4 

12 

13C4 



LCALL 

DOXOFF ? 

Output an XOFF 


18 

19 1DD7 

D1 

OF 



ACALL 

CMPORT ? 

Toggle port 


20 

21 1DD9 

CO 

3F 



PUSH 

PFIELD 

Save protected fields 


22 1DDB 

23 

75 

3F 

00 


MOV 

PFIELD, #0 ? 

Make al1 unprotected 


24 1DDE 

25 1DDF 

E4 

CO 

12 



CLR 

PUSH 

A ? 

YPOS 

Start with no attributes 
Save current position 

set 

26 1DE1 

27 

75 

12 

00 


MOV 

YPOS i #0 



28 1DE4 

29 1DE6 

B1 

CO 

75 

EO 


PRNTls 

ACALL 

PUSH 

XMTL1 ? 

ACC 

REPEAT transmit line 
save attributes 


.. scrim sr'' 

31 IDEA 

'll 

OD 

.cF. 

8A 



ACALL 

DB 

XMTS 5 

CR, (LF+80H) 

transmit CR and LF 


. 32' "i‘DEC 

33 

W 

' "EO " 



' "POP 

ACC ? 

restore attributes 


.34* IDEE 

35 1DFO 

'' ‘05* 
AC 

.i"2‘ * * 

12 

"EF. 


.INC. 

MOV 

' YP'dS. 

WORK, YPOS 

bump position 


.36 ' 1'0F2' * ’ 

37 

''' BC: 

.1"8. 


.C'JNE 

"WORK,* "#KAX'CrNF,' 'PR'NTi " V 

UNTiL done 


.38 "1383 ' 

39 1DF7 

'' W 
12 

.T2. 

04EA 



AOP 

LCALL 

yP'Os .*?' 

BLINAD ; 

Restore position 

Update address 


. 40 . 

41 IDFA 

DO 

3F 



POP 

PFIELD 

Restore protected fields 


42 

43 1DFC 

D1 

OF 



ACALL 

CMPORT ? 

Toggle port again 


.'44. 

45 1DFE 

20 

22 

03 


JB 

HSSTOPF, PRNT2 

IF not hold screen THEN 


.46’ 1E01 

47 

'' T 2 * 

.1303'' 



’ 'LCALL 

' tiO'X'ON ' . ; 

output an -XON- 


.48' 1E04 

49 

* • *C2‘ 

.23 


PRNT2S 

CLR 

PRNTF ? 

Flag done printing 


50 i£06 

51 1E09 

•"I2‘ 

50 

.02E8 

03 



LCALL 

JNC 

LKB ; 

PRNT3 ? 

Look at keybcard 

IF no keyboard data THEN 


52 

53 1E0B 

02 

066B 



LUMP 

RING ; 

signal done to user 


54 1E0E 

22 



PRNT3S 

RET 


ELSE return 
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1 ;; 

CMPORT - complement port 

2 ’ 

3 ? 

■h-CMPORT# tos^les direction of the I/O port. 

4 

5 ? 

6 ; 

7 5 

ENTRY none 

8 ? 

9 

EXIT none 

10 ; 

11 

USES A, DPTR 


12 


13 

1E0F 

30 

13 

FD 

CMPORT: 

JNB 

OKTRANS, CMPORT 

? Wait until transmitter empty 

14 

lEi2 

B2 

02 



CPL 

PORTF 

• Tossle 

port flag 

15 

1E14 

B2 

3C 



CPL 

PRTF2 

; Toggle 

EAROM flag 

i6‘ 

17 

iPi6 

•* C2 

.i 6 ‘ ‘ 



.CLR'"' 

XOFFRCVED 

5 Clear 

any received -XOFF- 

'i£: 





; 

SUMP 

WLATCH 

5 Write 

and return 


19 


20 

21 

22 






23 



? ! 

WLATCH 

- write latch 

24 



; 



25 



: 

-WLATCH 

- writes the current value of the bvte *XLATCH# out 

26 



7 

to the 

memory mapped latch. 

27 



5 



28 



; 



29 



; 

ENTRY 

none 

30 



; 



31 



; 

EXIT 

none 

32 



; 



33 



; 

USES 

A* DPTR 

34 






Cj*cr f 






36 1E i <8 

E5 

20 

WLATCH: 

MOV 

A, XLATCH ! Get byte 

37 1E1A 

90 

3000 


MOV 

DPTR, #MLATCH ; Get address 


38 iEib.FO .MOVX. ©DPTRlV A.T Output’ data ' to* *1 atch 

39 IEIE 22 RET 
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1 . .DCLK.." 7 . Display clock 


2 

3 





7 

m 

7 

DCLKO - 

a1 wavs dis p1 av c1ock 


4 

5 





5 

*DCLK* 

displays the current 

setting of the clock on the 25th 

6 

7 





7 

7 

1ino on 

ce everv second on1 y . 


8 





7 

♦DCLKO* 

always displays the 

current setting of the clock on 

9 





m 

the 25th line. 


10 









11 









i2 





m 

7 




13 





7 

ENTRY 

none 


14 





7 




15 





7 

EXIT 

none 


*** ***i6 





7 




17 





7 

USES 

A, B, DPTR 


18 

19 

20 

1E1F 

E5 

3E 


DCLKs 

MOV 

A, DISPSEC 


21 

1E21 

B5 

3B 

01 


CJNE 

A, TSEC, DCLKO 

‘ IF no change in seconds THEN 

22 

23 

1E24 

22 




RET 


? exit 

.24 

1E25 

85 

3B 

3E 

DCLKO! 

MOV 

DISPSEC, TSEC 

? I nit *DI SPSEC* 

25 

1E28 

E5 

3D 



MOV 

A, THOUR 


‘ 26 

1E2A 

12 

0A92 



CALL 

CBA 

; Convert hours to ASCII 

27 

1E2D 

CO 

82 



PUSH 

DPL 

; Save ones digit 

28 

1E2F 

E5 

83 



MOV 

A, DF‘H 

? Get tens digit 

29 

1E31 

B4 

30 

02 


CJNE 

A, #"0", DCLK1 

5 IF tens digit » '0' THEN 

30 

1E34 

74 

20 



MOV 

A, •' 

? suppress leading digit 

31 

1E36 

90 

57C8 


DCLKls 

MOV 

DPTR, #L25MEM+72 


32 

i£3$ 

P6 




Movx 

6DPTR, A 

? Place on screen 

33 

1E3A 

DO 

EO 



POP 

ACC 


34 

resc" 

A3 




I NC ’ " 

tipfR. 


35 

1E3D 

FO 




MOVX 

©DPTR, A 

; Place on screen 

36 

*i£3E" 

"74 "' * 

.3A* ' ** 



MOV " " 

'AV ‘ . 


37 

1E40 

A3 




INC 

DPTR 


38 

1E41 

FO ” 




Movx 

©DPTR, A 

? Place s " on screen 

39 

1E42 

E5 

3C 



MOV 

A, TMIN 


40 

1E44 

12 

0A92 



CALL 

CBA 

? Convert minutes to ASCII 

41 

1E47 

CO 

82 



PUSH 

DPL 

? Save ones digit 

42 

i£49 

E5 

83 



MOV 

A, DPH 


43 

1E4B 

90 

57CB 



MOV 

DPTR, #L25MEM+75 


44 

1E4E 

FO 




MOVX 

©DPTR, A 

? Place tens digit on screen 

45 

1E4F 

DO 

EO 



POP 

ACC 


. 46 

i£5i" 

A3 




INC 

DPTR 


47 

1E52 

FO 




MOVX 

©DPTR, A 

! Place ones digit on screen 

. 43 

’1*853* 

‘*‘74**’ 

’*"3H. 



MOV 

A, #•':•- 


49 

1E55 

A3 




INC 

DPTR 


. 50 

1 E5‘6 

“F'C>. 




.. Movx . 

©dRtr, A 

? Place ** » on screen 

51 

1E57 

E5 

3B 



MOV 

A, TSEC 


. 52 

YE59 ' 

''' 12 . 

*** 0A92 " 



CALL 

CBA 

5 Convert seconds to ASCII 

53 

1 ESC 

CO 

82 



PUSH 

DPL 

? Save ones digit 

. 54' 

i'ESE'' 

E5. 

.83. 



MOV 

A, DPH 


55 

1E60 

90 

57CE 



MOV 

DPTR, #L25MEM+78 


56 

1E63 

FO. 




MOVX 

©DPTR, A 

; Place tens digit on screen 

57 

1E64 

DO 

EO 



POP 

ACC 
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1 1E66 

2 ' i*E67 

3 1E68 


A3 

FO 

22 


INC 

MOVX 

RET 


DPTR 

QDPTRY'A 


Place ones disit on screen 
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1 





7 ? 

EiISPSTAT - display status line 


2 





. 

#DISPSTAT* displays everyth ins 

that can he displayed onto 

4 





? 

the 25th line if the option is 

enabled. This includes 

5 





? 

c 1 ock. 

caps locked, on/off line 

indicators, and insert 

6 

7 





? 

character mode. 


8 

9 





m 

ENTRY 

none 


id 





; 




n 





; 

EXIT 

none 


12 





; 




13 





; 

USES 

al 1 


14 









15 









16 

1E69 

30 

37 

03 

DISPSTATs 

JNB 

L250N , DSPR 

? IF line 25 off OR 

17 

1E 6 C 

30 

15 

01 


JNB 

L25EN 7 DSPO 

; IF line 25 enabled THEN 

is 

1E6F 

22 



DSPRs 

RET 


? return 

19 









20 

1E70 

74 

08 


DSPOs 

MOV 

A, #0000i000B 


21 

1E72 

71 

2E 



ACALL 

SCLRL 

? Clear with half intensity 

22 









23 

1E74 

Di 

25 



ACALL 

DCLKO 

? Display clock 

24 









25 

1E76 

E4 




CLR 

A 


26 

1E77 

90 

1E94 



MOV 

DPTR, #MSGCL 

; Caps locked 

27 

1E7A 

30 

35 

02 


JNB 

CAPLOCKF» DSP1 


28 

1E7D 

71 

AS 



ACALL 

XSTAT 


29 









30 

1E7F 

* 74 

10 


DSP1 s 

MOV 

A, #16 


31 

1E81 

90 

1EA5 



MOV 

DPTR, #MSGOL 

? Off1ine 

32 

'i'E84 ' 

’ ’ '2'd 

.2E. 

‘02 


■JB 

ONLINE, DSP2 


33 

1E87 

71 

AS 



ACALL 

XSTAT 


34 









35 

1E89 

74 

ID 


DSP2S 

MOV 

A, #29 


36 1E8B 

■"’90”" 

.l’£B3'' ’ 



.MdV. 

“ CiPTP; #MStiiC 

" Insert character 

37 

1E8E 

30 

21 

02 


JNB 

ICMODEF, DSPS* 


38 

i E91 

"7i. 

.AS. 



.ACALL 

XSTAT 

? Output 

39 









’40 

i’E93 

22 



DSP3! 

RET 
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1 





? 

Caps 

locked message 


2 

o 

1E94 

00 

20 

20 

MSGCL: 

DB 

00H ■> •- CAPS LOCKED 

(00H+80H) 


1E97 

43 

41 

50 






1E9A 

53 

20 

4C 






1E9D 

4F 

43 

4B 






IE AO 

45 

44 

20 






i EA3 

20 

80 






4 









5 









6 





; 

Off 1 

line message 


7 

1EA5 

00 

20 

20 

MSGOLs 

DB 

OOH, * OFF LINE 

(OOH+8OH) 


'IEA8'" 

" "4F. 

.46" 

46 






1EAB 

20 

4C 

49 






’iEAE 

" '4E ” " 

. 45 " " 

20 






1EB1 

20 

80 







‘ 9 
10 


11 

12 




■ 

Iriser t 

character message 


13 1EB3 

00 

20 

20 

MSGIC: 

DB 

OOH , - 

INSERT MUDE 

', (00H+80H) 

1EB6 

49 

4E 

53 






1EB9 

45 

52 

54 






1EBC 

20 

4D 

4F 






1EBF 

44 

45 

20 






1EC2 

20 

80 
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1 





; ■ 

KBCHK 

- kevboard check 


2 

3 





« 

i 

9 

7 

•*KBCHK* waits 

for the keyboard to 

send -KB-POWER- within 

4 





7 

75 ms 
This 

If it is not found then an error condition exists, 
routine must only be done after a hardware reset so that 

6 

7 






it is 

known that the keyboard is 

so ins to send the data. 

8 

9 





9 

7 

ENTRY 

none 



10 

11 





7 

9 

7 

EXIT 

none 



12 

13 





7 

7 

USES 

al 1 



14 

15 . 

16 

17 

1EC4 

1EC6 

7A 

7B 

CD 

00 


KBCHK5 

KBCOs 

MOV 

MOV 

INDX1, 

INDX2, 

#13 

#0 ? 

REPEAT init coun t 

18 

19 

1 ECS 
1ECB 

12 

40 

02B6 

04 


KBCls 

CALL 

JC 

FCKB 

KBC2 

; 

REPEAT get any data 

IF data AND 

20 

21 

1ECD 

1 EDO 

B4 

22 

8F 

F8 


CJNE 

RET 

A, #KB 

-.POWER, KBCi ? 

? 

IF power up "THEN 
return 

22 

23 

1ED1 

1ED3 

DB 

DA 

F5 

FI 


KBC2: 

DJNZ 

DJNZ 

INDX2, 

INDX1, 

KBCI 5 

KBCO 5 

UNTIL done 

UNTIL all done 

24 

25 

1ED5 

43 

40 

08 


ORL 

ERRORS 

, #000010008 ? 

ELSE error #3 

26 

1ED8 

'' 22 




RET 
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1 


; ; 

ROMCHK 

- ROM checksum 




2 

3 


7 

«i 

7 

-ROMCHK 

- does a checksum on 

the ROM and compares it 

with 

4 

5 


7 

m 

7 

the known value in ROM. 




6 

7 


5 

7 

ENTRY 

none 




8 

9 


m 

7 

EXIT 

none 




10 


• 

7 






11 


* 

USES 

al 1 




12 








13 








14 1ED9 

7C 

00 ROMCHK! 

MOV 

WORK, #0 

7 

I nit checksum 


15 1EDB 

90 

0000 

MOV 

DPTR, #0 

7 

Init pointer 


16 1EDE 

7 A 

20 

MOV 

INDX1, #20H 

7 

First index 


17 1EE0 

7B 

00 

MOV 

INDX2, #00H 

m 

7 

Init count 


18 

19 1EE2 

E4 

RMC12 

CLR 

A 

. 

REPEAT 


20 1EE3 

93 


MOVC 

A, @A+DF'TR 

7 

set ROM bvte 


.21 J.EE4... 

...2C. 


ADD 

A, WORK 

» 

7 

add to previous 

amount 

22 1EE5 

FC 


MOV 

WORK, A 

7 

replace 


.23..1EE6..., 

_A3 . 


INC 

DPTR 

; 

bump pointer 


24 1EE7 

DB 

F9 

DJNZ 

INDX2, RMC1 

7 

UNTIL done 


. 25 1EE9 

...DA. 

F7 

DJNZ 

INDX1, RMC1 

7 

UNTIL all done 


26 

.27..1EEP... 

...6Q. 

.03. 

JZ 

RMC2 

. 

IF error THEN 


28 1EED 

43 

40 01 

ORL 

ERRORS, #000000016 

5 

error #0 


.2?..lEFp... 

...22. 

RMC2! 

RET 
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*** Z-29 COMPUTER TERMINAL 

FIRMWARE VERSION 1.03 




1 





RAMCHK 

- RAM check 






. 

—RAMCHK 

- checks the RAM for anv 

failures. It writes two 

4 




; 

different values into character 

and attribute RAM and reads 

5 




; 

them back. Anv errors are flashed. 

6 ; 

7 ; 

9 





ENTRY 

none 


10 

11 




7 

EXIT 

none 


12 

13 




* 

USES 

a 1 1 


14 

15 

1EF1 

90 

5000 RAMCHK2 

MOV 

DPTR, #CHARMEM 

? Point to character RAM 

16 

1EF4 

7C 

55 


MOV 

WORK, #0101010is 

? First pattern 

17 








18 

1EF6 

7 A 

08 

RAMOS 

MOV 

INDX1, #08H 

? First index 

19 

1EF8 

7B 

00 


MOV 

INDX2, #00H 

? Second index 

20 

21 

1EFA 

EC 


RAMI: 

MOV 

A, WORK 

? REPEAT 

22 

1EFB 

FO 



MOVX 

@DF*TR, A 

; write pattern 

•~<C; 

1EFC 

53 

83 

EF 

ANL 

DPH, #ATRANL 

? move to attribute RAM 

24 

1EFF 

FO 



MOVX 

©DPTR, A 

? write pattern 

25 

1F00 

EO 



MOVX 

A, ©DPTR 

? read pattern 

26 

1F 01 

54 

OF 


ANL 

A, #0FH 

? mask 

27 

1F03 

FD 



MOV 

TEMP, A 

; save 

28 

1F04 

EC 



MOV 

A, WORK 

* set original pattern 

29 

IF 05 

54 

OF 


ANL 

A, #0FH 

5 mask it also 

30 

IF 07 

B5 

05 

14 

CJNE 

A, TEMPA, RAMERR 

? IF error THEN exit 

31 

1FOA 

43 

@3 

10 

ORL 

DPH, #CHRORL 

? move to character RAM again 

32 

'iFOD 

EO 



MOVX 

A, ©DPTR 

? read pattern 

33 

1F0E 

B5 

04 

OD 

CJNE 

A, WORKA, RAMERR 

? IF error THEN exit 

34 

1F11 

A3 



INC 

DPTR 

* bump pointer 

35 

1F12 

DB 

E6 


DJNZ 

INDX2, RAMI 

? UNTIL done 

36 

1 FI 4 

DA 

E4 


DJNZ 

INDX1, RAMI 

; UNTIL all done 

37 








38 

1F16 

BC 

bjcr 

04 

CJNE 

WORK, #01010101B, RAM2 

? IF pattern is original THEN 

39 

1F19 

7C 

AA 


MOV 

WORK, #1010101OB 

; change to second pattern 

40 

1 FI B 

80 

D9 


SJMP 

RAMO 

“ and do it again 

41 








42 

43 

1F1D 

22 


RAM2S 

RET 


? IF no error THEN return 

44 

IF IE 

43 

40 

02 RAMERR: 

ORL 

ERRORS, #0000001OB 

; ELSE flag error #1 and return 

45 

1F21 

22 



RET 
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1 




. . 

NVRCHK 

- non-volatile RAM checksum 

2 

3 




9 

7 

* 

*NVRCHK* does a checksum on the NVRAM and returns the value. 

4 

5 




9 

7 

7 



6 

7 




5 

m 

7 

ENTRY 

none 

S 

9 




7 

7 

EXIT 

(A) = checksum value of NVRAM 

10 

11 




7 

USES 

A, WORK, INDX1, PTR1 

12 







13 

1F22 

E4 


NVRCHKs 

CLR 

A ! I nit for checksum 

14 

1F23 

78 

25 


MOV 

PTR1, #25H 

15 

1F25 

7A 

OF 


MOV 

INDX1, #15 

16 







17 

1F27 

26 


NVRls 

ADD 

A, @PTR1 ? REPEAT add next value 

IS 

1F28 

os' 



INC 

F’TRl ? bump RAM pointer 

19 

1F29 

DA 

FC 


DJNZ 

INDX1, NVR1 ? UNTIL done 

20 

1F2B 

22 



RET 



































.*** 2-29 . COMPUTER. TERMINAL .FIRMWARE . VERSION . *** 


1 






; 

ERROR - 

diagnostic error 


2 

3 







-ERROR- 

.outputs.the.error messages.for.any.errors, that. 

4 







may have been flagged in the -! 

ERRORS- byte- The status 

5 







line is 

. di spI a.ye.d. if .there, .are. 

no.errors- A bell is 

6 

7 







given when finished and no errors occured. 

P, 

9 







Format 

of the error byte is as 

foilows: 

10 







BIT 

0 = ROM checksum error 


11 








1 e RAM error 


12 








2 = CRTC error 


13 








3 ~ Keyboard error 


14 








4 = Mon-volatile RAM checksum error 

15 










16 










17 







ENTRY 

n o n e 


18 










19 







EXIT 

none 


20 










21 







USES 

al 1 


28 

. 24 

1F2C 

E5 

40 


ERROR: 

MOV 

A? ERRORS 


25 

1F2E 

70 

05 




•JNZ 

ERRO 

? IF no errors THEN 

26 

1F30 

D1 

69 




ACALL 

DISPSTAT 

? display status 

27 

1F32 

02 

066B 




LUMP 

RING 

? ring bell and return 

28 










29 

IF 35 

E4 



ERRO: 

CLR 

A 


3d 

iF'36 

71 

2E 




ACALL 

SCLRL 

5 Clear line full intensity 

31 

1F38 

D1 

25 




ACALL 

DCLKO 

? Display clock 

”32' 

TF'3A''' 

"tii. 

OF 




ACALL 

CliPORT 

! Change ports 

33 










.34' 


• * * m . 

40 

'FO' ' 



MOV 

Br ERRORS 

? Get errors 

35 










.36' 

’ l'FSF’ ‘' 

”7T. 

.OF. 




ACALL 

XMTS 

? Output message 

37 

1F41 

45 

52 

52 

, ERM1: 

DB 

- ERROR , < -' - +80H) 



1F44 

4P " 

52 

20 







1F47 

2D 

AO 







.33' 










39 

1F49 

E4 





CLR 

A 


.4*0' 

TF4A' 

'' * 90' 

1F41 




MOV 

DPTR, #ERM1 


41 

1F4D 

71 

A8 




ACALL 

XSTAT 

? Output to 25th line 

.4'2' 










43 

1F4F 

30 

FO 

17 



JNB 

B.O, ERR1 

? IF ROM checksum error THEN 

” " * 44 

ifB2''' 

FF ' 





MOV 

W0RK2, A 


45 

1F53 

71 

OF 




ACALL 

XMTS 

; output message 

"'4*6' 

TP55*'' 

"' 52. 

4'F 

' '4D ’ 

ERM2: 

DB 

- ROM checksum , < - - +80H) 


1F58 

20 

63 

68 







TP5B' *' 

''' 65 ' 

63 

6B 







1F5E 

73 

75 

6D 







1F'61 

20 

AO 







47 

IF 63 

EF 





MOV 

A, W0RK2 


.43' 

TP'64'' * 

90 

IF 55 




MOV 

DPTR, #ERM2 


49 

1F67 

71 

A8 




ACALL 

XSTAT 

? output to 25th line 

'' '50 










51 

1F69 

30 

FI 

14 

ERR 1: 

•JNB 

B. 1, ERR2 

? IF RAM error THEN 
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*** Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 *** 


1 1F6C 

FF 




MOV 

WGRK2, A 



2 iF&E 

' '71. 

.OF. 



ACALL 

' ■XHYS. 

7 

output message 

3 1F6F 

52 

41 

4D 

ERM3! 

DB 

•RAM fault 

-+80H) 


.1F72”” 

•20'” 

hh 

61 






1F75 

75 

6C 

74 






."i*i" ' * 

26 

‘ ”A6 ' 







4 1F7A 

EF 




MOV 

A, W0RK2 



.5”1F7B”” 

'90. 

.1F6F'"" 



.MOV. 

‘' BFTRV' TERMS'. 



6 1F7E 

71 

A8 



ACALL 

XSTAT 

7 

output to 25th line 

..7. 

8 1F80 

30 

F2 

15 

ERR2-* 

JNB 

B.2, ERRS 

7 

IF CRTC error THEN 

.9* TF83‘' ‘ 

‘ • FF ‘ ’ 




.MOV ” 

‘ W0RK2V’A. 



10 1F84 

71 

CF 



ACALL 

XMTS 

7 

output message 

.IT TF86”* 

”43. 

” ” 52. 

”54. 

.ERM4':. 

.DB. 

'CRTC error ', ( 

'"•••+80‘R>” 


1F89 

43 

20 

65 






. 1FSC" 

” 72 ” ” 

” ” 72 . 

6F 






1F8F 

72 

20 

AO 






. 12 " *1'F92' " * 

”£F 




. MOV . 

' AV' W0RK2 . 



13 1F93 

90 

1F86 



MOV 

DPTR, #ERM4 



. T4' TF96''' 

"71”” 

” ” A8 ' 



ACALL 

XSTAT 

7 

output to 25th line 

15 









. 1S1F9S " 

30 

” ” F3. 

’'' T3 . 

ERR‘3: ’”” 

""" JNB" . 

’ B73V ' ERR4 . 

• 

IF keyboard error THEN 

17 1F9B 

FF 




MOV 

W0RK2 7 A 



18 1F9C 

”71 

’ ”CF 



ACALL 

xMTs 

? 

output message 

19 1F9E 

4B 

65 

79 

ERM5 s 

DB 

' Keyboard 

•' +8 OH > 


. l'Ffti" * 

'' 62 ” ” 

4F 

” Si 






1FA4 

72 

64 

20 






.1FA7 ' * 

"AO. 








20 1FA8 

EF 




MOV 

A, W0RK2 



21 1FA9 

90 

1F9E 



MOV 

DPTR, #ERM5 



22 1FAC 

71 

A8 



ACALL 

XSTAT 

; 

output to 25th 1 ine 

23 









24 1FAE 

30 

F4 

18 

ERR4: 

JNB 

B. 4, ERRS 

7 

IF NVRAM error THEN 

.25 TFBi * " 

”FF”” 




.MOV. 

W0RK2,’ A 



26 1FB2 

71 

CF 



ACALL 

XMTS 

7 

output message 

27 1FB4 

4E 

56 

52 

ERM6: 

DB 

'NVRAM checksum*' 

, (- "+8OH > 

1FB7 

41 

4D 

20 






1FBA 

63 

68 

” ”65 






1FBD 

63 

6B 

73 






1FC0 

”75”” 

6D 

” "AO. 






28 1FC3 

EF 




MOV 

A, W0RK2 



.29 1FC4 

”90”” 

1FB4 



MOV 

DPTR, #ERM6 



30 1FC7 

71 

A8 



ACALL 

XSTAT 

? 

output to 25th line 

31 









32 1FC9 

71 

CF 


ERRS s 

ACALL 

XMTS 

; 

Output CR, LF-'s 

33 1FCB 

OD 

OA 

OD 


DB 

CR, LF, CR, (LF+80H> 


1FCE 

8A 








34 









35 1FCF 

Cl 

OF 



AJMP 

CMPORT 

7 

Change ports back 













































































*** .1.-28. COMPUTER .TERMINAL. FIRMWARE. .VEBSHOW. X ..Q3. *** 


1..RAMCONST.RAM .constants 


2 


7 




3 


? *RAMCONST* is the table 

with all 

of the RAM constants that 

4 

5 


? the 

? 

terminal will power 

up with- 


6 1FD1 

DO 

RAMCONST: DB 

LOW (IBUF) 

; 

ISTORE 

7 1FD2 

DO 

DB 

LOW (IBUF) 

; 

IFETCH 

8 1FD3 

9 

00 

DB 

0 

? 

ICOUNT 

10 1FD4 

FO 

DB 

LOW (OBUF) 

; 

OSTORE 

11 1FD5 

FO 

DB 

LOW (OBUF) 

; 

OFETCH 

12 

13 1FD6 

00 

DB 

0 

. 

XROS 

14 1FD7 

00 

DB 

0 

; 

YPOS 

15 1FD8 

50 

DB 

HIGH (CHARMEM) 

; 

LINADH 

16 1FD9 

17 

00 

DB 

LOW (CHARMEM) 

? 

LINADL 

18 IFDA 

00 

DB 

HIGH (NORM) 

; 

DSPADH 

19 1FDB 

87 

DB 

LOW (NORM) 

; 

DSPADL 

20 

21 1FDC 

00 

DB 

0 

? 

TSCROLL 

22 1FDD 

23 

is 

DB 

MAXLINE 

? 

BFIX 

24 1FDE 

00 

DB 

0 

; 

PMADRH 

25 1FDF 

00 

DB 

0 

; 

PMADRL 

26 1FE0 

00 

DB 

0 

> 

PMNUM 

27 1FE1 

00 

DB 

0 

; 

PMVALUE 

28 

29 1FE2 

00 

DB 

0 

7 

KBIDNUM 

. 30 iFE3 

01 

DB 

1 

; 

HSLINE 

31 1FE4 

00 

DB 

0 

7 

GSET 

32 

33 1FE5 

39 

DB 

00111001B 

7 

XLATCH bits #1 

.34' 1F££ 

60 

DB 

. 66666666'B . 

; 

AtTRIBUtES bits #2 

35 1FE7 

08 

DB 

00001000B 

7 

Bits #3 

. 3'6 'l'FES ' 

UC 

DB 

00001100B 

; 

Bits #4 

37 1FE9 

30 

DB 

00110000B 

* 

Bits #5 

38 

39 1FEA 

00 

DB 

0 

? 

XXPOS 

40 1FEB 

41 

66 

DB 

0 

? 

X YPOS 

42 iFEC 

20 

DB 

32 

; 

BLNKRATE 

43 1FED 

00 

DB 

0 

• 

BLNKCOUNT 

" '44 iFEE' 

45 

00 

DB 

6 

7 

AUTOCNT 

. "46"iF£F "' 

66 

DB 

0 

5 

YcKit . 

47 1FF0 

00 

DB 

0 

? 

TSEC 

. WiFFl " • 

66 

DB 

0 

; 

T MIN . 

49 1FF2 

00 

DB 

o 

; 

THOUR 

. 50 . 

51 1FF3 

FF 

DB 

255 

7 

DISPSEC 

. 52' . 

53 1FF4 

00 

DB 

0 

; 

PFIELD 
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1 


- . 

CHKS ~ check sum 


r> 

3 


; 

-CHKS- is the checksum bvte f<: 

:«r the terminal ROM. It is 

4 


7 

choosen so that the total sum 

of all the bytes gives a value 

5 


; 

of zero. 


6 

7 

1FFF 


ORG 1FFFH 


.’3. 

9 1FFF 

D 6 

CHKSs 

DB 0D6H 

" Checksum bvte 

.i'o. 





11 



END 
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.SYMBOL. TABLE.. 


AC 

5COOD6 

Ol 

AC A1 

0A06 

03 

ACA2 

0A08 

03 

AC A3 

OAOA 

03 

AC A3 A 

0 A12 

03 

AC A 5 

OA16 

03 

ACC 

7.00E0 

00 

ACCESS 

00 IE 

01 

ACD 

0CC1 

03 

ACDN 

OCBB 

03 

ACD 3 

occo 

03 

ACHR2 

003D 

01 

ACL 

0C4C 

03 

ACLFT 

0C46 

03 

ACLO 

0C4B 

03 

AC PR 

0AAF 

03 

ACPI 

OACF 

03 

ACPI A 

0AD8 

03 

ACF’2 

OADC 

03 

ACF’3 

OACC 

03 

ACR 

0C74 

03 

A CRT 

OC6E 

03 

ACR1 

0C73 

03 

ACM 

OCAS 

03 

ACUP 

0C9D 

03 

ACU1 

0CA2 

03 

ADA 

0EC3 

03 

ADAM 

OECC 

03 

A DM 3 

0042 

01 

ADM3ES 

06 A 7 

03 

AESC1 

06 A1 

03 

ALLINI 

10AF 

03 

ALL 11 

10C1 

03 

ALTCHA 

OOOC 

01 

ALTGRF* 

OOOF 

01 

ANSI 

0040 

01 

ANST.ES 

0697 

03 

ANSI! = 

0798 

03 

ANSITL= 

OOOC 

00 

APBT 

0CC6 

03 

AF’BT 1 

OCCB 

03 

AF'CA 

09 FA 

03 

AF’DC 

0E32 

03 

AF’DCO 

0E37 

03 

APDC1 

0E38 

03 

AF'DL 

0DB6 

03 

APDLO 

ODBB 

03 

AF’DL 1 

ODBC 

03 

AF’IC 

0DE9 

03 

API CO 

ODEE 

03 

API C1 

ODEF 

03 

APIL 

0D7D 

03 

AF’ILO 

0D82 

03 

AF’ILl 

0D83 

03 

APR 

0AE9 

03 

APRNT 

OADF 

03 

ARAMP 

OAF 6 

03 

ARM 

085F 

03 

ARMT = 

0871 

03 

ARMTL « 

0005 

00 

ASBR 

OAEA 

03 

ASBR 1 

OAEF 

03 

ASBR2 

0AF2 

03 

ASCP 

OEEF 

03 

ASGM 

0A3B 

03 

ASGMT = 

0A50 

03 

ASGMTL= 

0007 

00 

AS GO 

0A4E 

03 

ASGO 

0A49 

03 

ASG1 

0A3D 

03 

ASM 

0S3D 

03 

ASMR 

084F 

03 

ASMT = 

0350 

03 

ASMTL = 

0005 

00 

ASPF 

0A65 

03 

ASPFl 

0A68 

03 

ASPFlA 

0A72 

03 

ASPF1B 

0A77 

03 

ASPF1C 

0A7C 

03 

ASPFID 

0A81 

03 

ASPF1E 

0A86 

03 

ASPFIF 

0A8C 

03 

ASPF2 

0A8E 

03 

ATBC 

062B 

03 

ATRANL= 

OOEF 


ATRIBM* 

4000 


ATTRIB- 

0021 


AT2 

0635 

03 

AUSCP 

OF 03 

03 

AUTOCIM* 

0039 


AUT OCR 

002C 

01 

AUTOLF 

002D 

01 

AUTGWR 

002B 

01 

AIM 

0880 

03 

A1RM 

08CC 

03 

A1RT = 

08DE 

03 

A1RTL = 

0003 

00 

A ISM 

08 BO 

03 

A1 SR 

08C2 

03 

A 1ST « 

08C3 

03 

A1STL « 

0003 

00 

A2M 

0898 

03 

A2RM 

0944 

03 

A2SM 

08FF 

03 

B 7.00F0 

00 

BANKO ~ 

0000 


BANK1 = 

0008 


BAUDRA= 

0033 


BELL = 

0007 


BFIX = 

0018 


BLINAD 

04EA 

03 

BLINKA 

000A 

01 

BLINKF 

0001 

01 

BLNKCN= 

0038 


BLNKRA* 

0037 


BRTAB = 

0E5F 

03 

BR1 

0FD2 

03 

BR2 

OF DC 

03 

BS 

0008 


BTAB 

0602 

03 

BTL 

060A 

03 

BTL1 

061A 

03 

BTR 

06 IF 

03 

CAN 

0018 


CAPLOC 

0035 

01 

CBA 

0A92 

03 

CCRSR = 

0080 


CDN 

OCAS 

03 

CDN1 

OCAE 

03 

CDN2 

0CB2 

03 

CDN3 

0CB7 

03 

CHARME= 

5000 


CHKS 

1FFF 

03 

CHRORL= 

0010 


Cl NT = 

OOAO 


CLA 

0503 

03 

CLFO 

0BC2 

03 

CLFT = 

0C3D 

03 

CLKF 

0033 

01 

CLKRUN 

0097 

01 

CLRFLG 

0020 

01 

CLRL 

OBAO 

03 

CLRLIN 

0B96 

03 

CLRS 

OBAC 

03 

CLRTAB 

0598 

03 

CLRTB 

0590 

03 

.CMPORT ' 

1E0F 

03 

CONTLF 

001D‘ 

01 

.CPF. 

0188 

03 

CPFR1 

018C 

03 

CPFR2 

01A7 

03 

CPF 1 

018E 

03 

CPF2 

01 A3 

03 

CPR 

0E83 

03 

CPRM 

0EA9 

03 

CPRO 

0E8B 

03 

CPROA 

0E8F 

03 

CF’Rl 

0E97 

03 

CPR2 

0EA6 

03 

CR 

GOOD 


CRESET= 

0000 


CRNBK 

0038 

01 

CRT 

0C64 

03 

CRT 1 

0C6A 

03 

CRUL 

0032 

01 

CR1 

it 98 

03 

.CR2. 

1 i 9 A 

03 

CSET = 

OOEO 


CSTOP - 

0040 


CSTRT ~ 

0020 



CS1 0BB5 03 CS2 0BB9 03 CTAB1 = 0119 03 CTAB1L= 0008 00 CTAB2 = 0107 03 

CTAB2L="060E.00.CTAB3 ' = ' £128' " 03.CTAB3L= 0006 " "66.CtS.00B5 01.CUA.0CD6 " " 03 

CUA1 0CE4 03 CUA2 0CE8 03 CUA2A OCEB 03 CUA3 OCEF 03 CUBO 0CF2 03 


CUB1 

OCFE 

03 

CUC 

0D04 

03 

CUCO 

0D14 

03 

eucoA 

0D1C 

03 

CUC1 

ODOE" 

03 

CUC1A 

0D12 

03 

CUC2 

0D1E 

03 

CUP 

0C8D 

03 

CUP 1 

0C94 

03 

CUP 1A 

0C95 

03 

CUP IB 

0C99 

03 

CUR 

OCF1 

03 

CURSOR 

1184 

03 

CUR 1 

ODOO 

03 

CUR 2 

0D20 

03 

CY 

7.00D7 

01 

DC 

0B5F 

03 

DCLK 

1E1F 

03 

DCLKO 

1E25 

03 

DCLK 1 

1E36 

03 

dcm’dre- 

2001 


DDATREa 

2000 


DEOL 

OBOO 

03 

DISPSE= 

003E 


DISPST 

IE 69 

03 

DKI 

0FB9 

03 

DMAANL= 

OOCF 


DMADRHs 

= OOOA 


DMADRL= 

OOOB 


DMAMEM= 

= 6000 


DMA0RL= 

' 0020' 


DMATYP 

00B4 

01 

DMLN 

7.0001 


DMLN A == 

0009 


DMPTR 

7.0000 


DMPTRA= 

0008 


DM1 

1225 

03 

DM1A 

1243 

03 

DM IB 

1235 

03 

DM 1C 

1238 

03 

DM ID 

123D 

03 

DM IE 

1246 

03 

DM2 

1248 

03 

DM3 

124 A 

03 

DM4 

125B 

03 

DOXOFF 

13C4 

03 

DOXON 

13D5 

03 

DPH 

7.0083 

00 

DPL 

7.0082 

00 

DSADRH* 

= 0015 


.DSAtiRL- 

"Ob i 6 " 


.DSPR. 

1E6F 

03 

DSPO 

1E70 

03 ' 

DSF'l 

1E7F 

03 

DSF'2 

1E89 

03 

DSPS 

1E93 

03 

DSR 

0D24 

03 

DSRERR 

0D40 

03 

DSROK 

0D42 

03 

DSRO 

0D29 

03 

. D'SR'OA' ' ' 

' Od^c 

'' 03. 

DSR’l 

0D30 * 

"63. 

DSR 1A 

0D35 

03 

DSR 2 

0D39 

03 

DSR2A 

0D3E 

03 * 

DSTARE* 

2001 


DTR 

0094 

01 

DX 

0014 

01 

D25L 

OB 15 

03 

EA 

7.00AF 

01 

. EAC'R . 

0B62 

03 

EALF 

0B68 

03 

EAM 

OB 03 

03 

.EAROM = 

7000 


EAROMR 

0003 

01 

EAROMS 

0000 

01 

EBD 

0BF1 

03 

EBL 

OBCB 

03 

EBL NK 

0F30 

03 

EB1 

0BF8 

03 

.Ed 2. 

OBFA 

03 

EB3 

0C01 

03 

EC 

0B5C 

03 

EED 

0C08 

03 

EEL 

OBDB 

03 

EER 

0C18 

03 

EERM 

0B74 

03 

EE1 

OCOC 

03 

EE1A 

0C10 

03 

EGATM 

0B6E 

03 

EGM 

0F39 

03 

EGTT = 

08AA 

03 

EGTTL = 

= 0002 

00 

EHALF 

0F2A 

03 

EHSM 

0B3C 

03 

El CM 

0B54 

03 

EID 

0 A1A 

03 

EID1 

0A20 

03 

EID2 

0A25 

03 

EIL 

0A2B 

03 
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EIL1 

0A31 

03 

EIL2 

0A36 

. 03 

EIR 

0A2A 

03 

EKAM 

0B4E 

03 

EKC 

0B26 

03 

EKI 

OFB3 

03 

EKSM 

0B48 

03 

ELB 

07BC 

03 

ELBT * 

07D0 

03 

ELBTL * 

00 IE 

00 

ENBLCU 

001A 

01 

EOL 

OBEO 

03 

E0L1 

0BE3 

03 

EQMT * 

0892 

03 

EQMTL = 

0002 

00 

ERM 

00 IB 

01 

ERM1 

1F41 

03 

ERM2 

1F55 

03 

ERM3 

1F6F 

03 

ERM4 

1F86 

03 

ERM5 

1F9E 

03 

ERM6 

1FB4 

03 

ERROR 

1F2C 

03 

ERRORS* 

0040 


ERRO 

1F35 

03 

ERR1 

1F69 

03 

ERR2 

1F80 

03 

ERRS 

1F98 

03 

E!RR4 

1FAE 

03 

ERRS 

1FC9 

03 

ERVM 

0F33 

03 

ES 

7.00AC 

01 

ESC 

00 IB 


ESCCOD 

067B 

03 

ESCRET 

0696 

03 

ETO 

7.00A9 

01 

ET1 

7.00AB 

01 

EUNDL 

0F2D 

03 

EXO 7.00A8 

01 

EX 1 

7.00AA 

oi 

EZM 

0B07 

03 

E25L 

OBOB 

03 

FCIF 

01F6 

03 

FCKB 

02B6 

03 

FCOF 

024C 

03 

FILL 

1211 

03 

FI 1 

01FC 

03 

FI 2 

0202 

03 

FI 3 

0217 

03 

FKDLY 

02E1 

03 

FKDLY1 

02E4 

03 

FKL 

02C7 

03 

FKR 

02DD 

03 

FK1 

02BE 

03 

FK2 

02D8 

03 

FL’l 

1219 

03 

FOR 

026B 

03 

F01 

0253 

03 

FREQ 

0039 

01 

FUL-LDP 

002F 

01 

FO 

7.00D5 

01 

GATM 

0025 

01 

GDES 

0F4F 

03 

GDESR 

OF 7 A 

03 

GDESO 

0F52 

03 

GDES1 

0F55 

03 

GDES2 

0F5A 

03 

GDES2A 

0F62 

03 

GDES3 

0F65 

03 

GDES3A 

OF 71 

03 

GETNUM 

1B45 

03 

GNP 

09D1 

03 

GNPF 

0019 

01 

GNP 1 

09DC 

03 

GNP2 

09E8 

03 

GKlU'Mft 

lBSo 

'03''' 

GNUMS 

1B93 

03 

GNUMO 

1B46 

03 

GNUM1 

1B4A 

03 

GNLIM2 

1B52 

03 

GNUM2A 

1B57 

03 

GNUM2B 

1B5A 

03 

GNUM2L 

1B5D 

03 

GNUM4 

1B69 

03 

GNUM4A 

1B6E 

03 

GNUM4B 

1B71 

03 

GNUM4C 

1B76 

03 

GPICK 

OF 8 6 

03 

GPICKT* 

0F92 

03 

GRPH 

OOOD 

01 

GSEL 

0012 

01 

GSET = 

00 IF 


GODES 

0F3F 

03 

GOPICK 

0F7B 

03 

G1DES 

0F47 

03 

G1PICK 

0F81 

03 

HALFIA 

000B 

01 

HAZ 

0043 

01 

HAZESC 

06B0 

03 

HAZINI 

11D4 

03 

HAZT = 

0768 

03 

HAZTL * 

0010 

00 

HCLFT 

0C51 

03 

HCLFT1 

0C5F 

03 

HCRT 

0C79 

03 

HCRT1 

0CS8 

03 

HEED 

OC19 

03 

HEE1 

0C20 

03 

HEE1A 

0C24 

03 

HIR 

11D8 

03 

HNDSHK 

003E 

01 

HSLINE* 

00 IE 


HSMODE 

0036 

01 

HSSTOP 

0022 

01 

HT 

0009 


HTAB 

0636 

03 

HTC 

0627 

03 

HTS 

0621 

03 

HTS1 

0623 

03 

HTO 

0640 

03 

HT1 

0652 

03 

HT2 

065B 

03 

HT3 

0665 

03 

IBUF = 

57D0 


ICMODE 

0021 

01 

ICOUNT* 

OOOE 


IC1 

114F 

03 

IDT 

OEAB 

03 

IDTM 

OEBO 

03 

IDTT 

0EB3 

03 

IDTTM 

OEBF 

03 

IE 

7.00A8 

00 

IEDMA * 

0082 


IEINIT* 

0095 


IEXTIO 

002A 

03 

I EC) 

7.0089 

01 

IE1 

7.008B 

01 

IFCP 

0079 

03 

IFETCH* 

OOOD 


IFPA 

0082 

03 

IFPRET 

0106 

03 

IFP1 

009C 

03 

IFP1A 

00A4 

03 

IFP1B 

OOAC 

03 

IFP1C 

OOAF 

03 

IFP2 

00B4 

03 

IFP2A 

OOCF 

03 

IFP3 

00D5 

03. 

IFP3A 

OODE 

03 

IFP4 

' OOEA 

03 

IFP5 

OOF 4 

03 

IFP5A 

00F6 

03 

IFP6 

0104 

03 

IHI 

0015 


IKB1 

11A4 

03 

I KB 2 

11 AC 

‘'03 ’' 

IKB3 

11B4 

"03. 

IKB4 

11BC 

03 

IKB5 

11C4 

03 

IKB6 

11C8 

03 

ILEN * 

0020 


ILO 

0009 


INDX1 : 

7.0002 


INDX1A* 

0002 


INDX2 ' 

7.0003 


INDX2A* 

'0003" 


IN IT 

1045 

03 

INITCR 

11 IE 

03 

INITKB 

119E 

03 

INMOV 

’ 10A7 

03 

INTO 

7.00B2 

01 

INTI 

7.00B3 

01 

INS 

1068 

03 

INS A 

108A 

03 

IN3B 

1086 

03 

IN4 

"ib'9C " 

"03" 

INS 

10 A3 

03 

IP 

70088 

00 

IPINIT* 

0003 


IRQ 

1329 

03 

IRQ1 

1347 

03 

IRQ2 

1352 

03 

IRQ3 

135E 

03 

IRQ4 

1361 

03 

IRQ4A 

1379 

03 

IRQ5 

1390 

03 

ISCON * 

* 005A 


ISTORE* 

OOOC 


ITMOD * 

0023 


ITMRO 

002D 

03 

I TO 

7.0088 

01 

. IT1 

7.008A 

01 

11 

0008 

03 

12 

0010 

03 

13 

0019 

03 

15 

0029 

03 

KBACC 

0448 

03 

KBBREA 

OFCC 

03 

KBCHK 

1EC4 

03 

KB CP 

02EE 

03 

KBCPLK 

OFBF 

03 

KBCRT * 

0466 

03 

KBCRTL* 

0007 

00 

KBC-BE* 

0081 


KBC-DC* 

0083 


KBC-DK* 

0088 


KBC-DR* 

0087 


KBC—EC* 

0082 


KBC-EK* 

0089 


KBC-EL* 

0084 


KBC-ER* 

0086 


KBC—ID* 

0080 


KBC-OF* 

008A 


KBC—ON* 

008B 


KBC_XL* 

0085 


KBCO 

1EC6 

03 

KBC1 

1 ECS 

03 

KBC2 

1ED1 

03 

KBDISF 

00 IF 

01 

KBDT = 

044B 

03 

KBDTL * 

0009 

00 

KBENT 

043E 

03 

KBE1 

0445 

03 

KBFNT * 

04CF 

03 

KBFNTL* 

0009 

00 

KBIDNU* 

00 ID 


KB IN 

0091 

01 

KBOUT 

0090 

01 

KBPDT * 

047B 

03 

KBPDTL* 

001C 

00 

KBSCRO 

0FE3 

03 

KBSCR1 

OFED 

03 

KBSCR2 

OFFO 

03 

KBSPAC 

0436 

03 

KBS 1 

043C 

03 

KB TAB 

041B 

03 

KB—ACC* 

009F 


KB-BRE* 

0089 


KB-CAP* 

008A 


KB-CNT* 

0020 


KB—COM— 

009D 


KB-DAS* 

009C 


KB-DEC* 

009A 


KB-DOW* 

0081 


KB-ENT* 

009B 


KB-ERA* 

0085 


KB-F i == 

0080 


KB-F2 = 

0081 


KB-F3 * 

0082 


KB-F4 = 

0083 


KB-F5 = 

0084 


KB-F6 = 

0085 


KB-F7 * 

0086 


KB-F8 * 

0087 


. KB-F9 = 

0088 


KB-HEL* 

CO 

o 

o 


KB-HOM* 

0084 


KB-ID * 

0098 


KB-LEF* 

0082 


KB-POW* 

008F 


KB-RIG* 

0083 


KB-SCR* 

0087 


KB-SET* 

. 0088 . 


KB-SHF* 

0040 


KB-SPA* 

008C 


KB-TAB= 

008B 


KB-UP * 

0080 


KB-0 * 

0090 


KB_1 = 

0091 


KB-2 = 

0092 


KB—3 = 

0093 


KB-4 = 

0094 


KB-5 = 

0095 


KB—6 = 

0096 


.KP-7 ..= 

. .Qft?7... 


KB _8 = 

0098 


KB-9 = 

0099 


KC1 

0FC8 

03 

KPA 

03CD 

03 

KPADAL 

0031 

01 

KPADSH 

0030 

01 

KPB t 

03DB 

03 

KPC 

0402 

03 

KPCOF 

0414 

..03. 

.KP.C7. 

0419 

03 ... 
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KPR 

02F3 

03 

KPR2 

0413 

03 

KPO 

02F4 

03 

KP1 

0303 

03 

KP10 

03CB 

03 

KP11 

0384 

03 

KP12 

03B4 

03 

KP13 

03A3 

03 

KP14 

03 A1 

03 

KP15 

03B2 

03 

KP16 

0365 

03 

KP16A 

036B 

03 

KP2 

030F 

03 

KP3 

0335 

. .03. 

....KP4.. 

...P.34B.. 

.. 03. 

KPS 

0345 

03 

KP6 

034F 

03 

KP7 

0355 

03 

KPS 

OSSA 

03 

KP9 

0371 

03 

KSR 

OFFE 

03 

KTM1 

0431 

03 

.Kiri?. 

. Q4;:-;4... 

03 . 

.KIP.. 

. .0.42A.. 

.. 03. 

.KT1. 

042'D 

03 

LCIF 

021B 

03 

LF 

OOOA 


LINADH= 

0013 


LINADL* 

0014 


LI 1 

0221 

03 

LKB 

02E8 

03 

LKBR 

02ED 

03 

LKUP1 

13F8 

03 

LNOFF 

1BC9 

03 

LNON 

1BCC 

03 

L.N.1B1 

14C7 

03 

LN1B2 

14CF 

03 

LN3B 

1648 

03 

LN3B1 

164D 

03 

LN3B10 

166B 

03 

LN3BH 

1670 

03 

LN3B12 

1675 

03 

LN3B13 

167 A 

03 

LN3B14 

167F 

03 

LN3B3 

1652 

03 

LN3B5 

1657 

03 

LN3B7 

165C 

03 

LN3B8 

1661 

03 

LN3B9 

1666 

03 

LN3C1 

1684 

03 

LN3C2 

1689 

03 

LN3C3 

168E 

03 

LN3C4 

1693 

03 

LN3E1 

1698 

03 

L.N3E2 

169C 

03 

LN3G1 

16 AO 

03 

LN3G2 

16A8 

03 

LN4B1 

1769 

03 

LN4B2 

176F 

03 

LN4D1 

1775 

03 

LN4D2 

177D 

03 

LN4D3 

1785 

03 

LN4D4 

178D 

03 

LN7D1 

19B7 

03 

LN7D2 

19C0 

03 

LN7D3 

19C9 

03 

LN7D4 

19D2 

03 

LN7F l 

19DB 

03 

LN7F2 

19DC 

03 

LN8B1 

1AE4 

03 

LN8B2 

1AED 

03 

LOOKUP 

13E9 

03 

LORDER— 

0047 


LOT 

1432 

03 

LOTL 

= 0013 

00 

Li 

146E 

03 

LI A 

149E 

03 

LIT 

146B 

03 

L1TL = 

0001 

00 

L2 

150D 

03 

L2A 

1516 

03 

L2B 

151A 

03 

L2C 

152B 

03 

L2D 

1538 

03 

L2T 

=» 1501 

03 

L2TL 

= 0004 

00 

L25EN 

0015 

01 

L25MEM- 

5780 


L250N 

0037 

01 

L3 

1598 

03 

L3A 

1 SCO 

03 

L3AT = 

161E 

03 

L3ATL = 

OOOE 

00 

L3B 

15E7 

03 

L3C 

1600 

03 

LSD 

161C 

03 

L3T 

158C 

03 

L3TL = 

0004 

00 

L4 

16F8 

03 

L4A 

1717 

03 

L4B 

173B 

03 

L4T 

16EC 

03 

L4TL = 

0004 

00 

L5 

1808 

03 

L5T 

« 17FC 

03 

L5TL = 

= 0004 

00 

L6 

1897 

03 

L6T 

188B 

03 

L6TL = 

0004 

00 

L7 

193F 

03 

L7C1 

198D 

03 

L7C2 

1996 

03 

L7D 

19AE 

03 

L7T 

1933 

03 

L7TL 

= 0004 

00 

L8 

1A8C 

03 

L8A 

1 ABO 

03 

L8T 

1A74 

03 

L8TL = 

0004 

00 

L8TL2 = 

= 0004 

00 

LST2 = 

= 1A80 

03 

MAIN 

0036 

03 

MAXCHA= 

004F 


MAXLIN= 

0018 


MLATCH : 

= 3000 


MN1 

0042 

03 

MN1A 

004E 

03 

MN1B 

0051 

03 

MN1C 

005D 

03 

MN1D 

0062 

03 

MN2 

0065 

03 

MN3 

006E 

03 

MODE = 

0028 


MONITO 

003A 

01 

MSGCL 

1E94 

03 

MSG IC 

1EB3 

03 

MSGOL 

1EA5 

03 

NKC 

082D 

03 

NORM 

0087 

03 

NRMO 

0093 

03 

NRM1 

009A 

03 

NULL = 

0000 


NUMCHA= 

0050 


NUMLIN= 

0019 


NVRCHK 

1F22 

03 

NVRSUM’ 

= 0034 


NVR1 

1F27 

03 

OBUF * 

57F0 


.OFETCH* 

0010 


OKTRAN 

0013 

01 

OLEN = 

= 57F7 


ONLINE 

002E 

01 

OST ORE- 

00 OF 


OV 

7.00D2 

01 

P 

7.00D0 

01 

PBS 

s' 0C3D 

03 

PBS1 

0C42 

OS- 

PC IF 

01C A 

03 

PCKB 

026D 

03 

PCLK 

0B7A 

03 

PCL1A 

0B7F 

03 

PCL1B 

0B8 8 

OS 

PCL1C 

0B91 

03 

PCL2 

0B95 

03 

PCOF 

022A 

03 

.PCR. 

•' omc ** 

"0*3** 

. PtHLP * * * 

* 054F 

03 

PDC 

0DF4 

03 

PDC1 

0E11 

03 

PDC2 

0E31 

03 

PDL 

0D88 

03 

PDLA 

0D95 

03 

PDLO 

0D9B 

03 

PDL 1 

0D9F 

03 

PDL2 

0DA9 

03 

" " 

= * *663P* 


.PIC * 

ma *" 

03 

PIC1 

* 0DD3 

*6*3. 

.*pi'L. 

0D47 

03 

PI LA 

0D52 

03 

PILRET 

0D72 

03 

PILRT1 

0D75 

03 

PILO 

0D5C 

03 

F’lLl 

0D60 

03 

PIL2 

0D6A 

03 

F’lR 

01F1 

"03" 

.Pil. 

OiDD 

03 

.PT2. 

* *6lE4 

03 

PIS 

01F0 

03 

F'KDLY 

02 B 5 

03 

PKL 

0291 

03 

PKR 

02B3 

03 

PKO 

027B 

03 

PK1 

027F 

03 

PK1A 

028F 

03 

.PK2. 

0294 

03 

PK3 

* 01'AS' 

03 

PK4 

02A9 

03 

PK5 

02B0 

03 

F'LF 

0561 

03 

PLFCR 

0555 

03 

PLFLP 

0588 

03 

PLFRET 

0594 

03 

PLF1 

0567 

03 

PLF2 

056D 

03 

.PLF3* 

‘"OS? i"* 

"6*3" 

'PMADRH™ 

0019 


.PMADRL- 

001A 


PMBIJF * 

57F8 


F’MNUM = 

= 00 IB 


PMVALU= 

- 001C 


PORTF 

0002 

01 

P01 

022F 

03 

P02 

0234 

03 

P03 

023F 

03 

.print** 

ib’Cte* 

03 

. PRLF. 

* *6S l8* * * * 

* 63 *"* 

.p'Rntf 

0023 

01 

PRNTi 

1DE4 

03 

PRNT2 

1E04 

03 

PRNT3 

1EOE 

03 

PROTEC 

OOOE 

01 

PRTF2 

003C 

01 

PRTYEN 

0028 

01 

PRTYEV 

002A 

01 

.PRTYSf 

'' '0029 ' * 

01 

.*P‘o. 

7.U0BC* 

01 

PSD 

0971 

03 

F’SDB 

0982 

03 

F’SDBl 

0985 

03 

PSDB2 

098A 

03 

PSDE 

09A2 

03 

PSDF 

0018 

01 

PSDRET 

09CF 

03 

PSD1 

09 AO 

03 

’ *" ‘PSOiSf * ‘' 

' "0987'' 

"6*3" 

PSD 3. 

' 698P* 

03* * *" 

PSD 4 

09CD 

03 

PSOF 

0E6D 

03 

PSW 

7.00 DO 

00 

PTR1 

7.0000 


PTR1A ~ 

0000 


PTR2 

7.0001 


PTR2A = 

0001 


PTO 

7.00B9 

01 

.PTi. 

* %06'BB 

*6*1" 

.POTcHR* * 

* Ui 57 

‘ 63 * 

PIJ1 

017D 

03 

PU2 

0186 

03 

PXO 

7.00B8 

01 

PX1 

7.00BA 

01 

PO 

7.0080 

00 

PI 

7.0090 

00 

F*2 

7.00A0 

00 

P3 

7.00B0 

00 

*' * 'R'AMCHK 

iEP 1 

*03" 

.RAMC'ON* * 

* lPDi'"* 

63 

RAMERR 

*1F IE 

03 

RAMP 

OAFA 

03 

RAMO 

1EF6 

03 

RAMI 

1EFA 

03 

RAM2 

1F1D 

03 

RB8 

7.009A 

01 

RD 

7.00B7 

01 

REN 

%009C 

01 

.REPF *'' 

*' 0034 ' * 

"6’i * * 

RGL 

066F 

03 

RGR 

067A 

03 

RI 

7.0098 

01 

RING 

066B 

03 

RLL 

0537 

03 

RLR 

0543 

03 

RL1 

0548 

03 

RL1A 

054C 

03 

RMC1 

1EE2 

03 

.RMC2" * 

iEFO 

"03" 

RMS 

092C 

03 

RMSRET 

0943 

03 

RMST = 

0956 

03 

RMSTL * 

a 0009 

00 

RMS 1 

0938 

03 

ROMCHK 

1ED9 

03 

RSO 

7.00D3 

01 

RSI 

7.00D4 

01 

RTS 

0095 

01 
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RT1 

OBOA 

03 

RUBOUT= 

007F 


RWA 

0008 

01 

RXD 

7.O0B0 

01 

R2_BAC= 

1024 


R2_DCL= 

103F 


R2_DIS= 

1042 


R2_ESC= 

102D 


R2-.FI L= 

100C 


R2_ICU= 

101B 


R2-IKB- 

101E 


R2-IN = 

1000 


R2_ I N2= 

1003 


R2_IRQ= 

100F 


R2-KY1= 

1027 


R2-KY2" 

102 A 


R2—PRN= 

103C 


R2-SER- 

1012 


R2_SET= 

1021 


R2_STA= 

1006 


R2_ST0~ 

1009 


R2_TC * 

1030 


R2_TL = 

1033 


R2-TP = 

1036 


R2-.T25- 

1039 


R2~XMT= 

1015 


R2„X0N- 

1018 


SAV2 

1 BOD 

03 

SBC 

0B33 

03 

SBLR 

0F96 

03 

SBR 

0E4B 

03 

SBRET 

0E5E 

03 

SBRT 

OFAF 

03 

SBRO 

0E5A 

03 

SBUF 

7.0099 

00 

SB! 

0F9C 

03 

SB 2 

0FA6 

03 

SB3 

0FA7 

03 

SCH 

0C36 

03 

SCLRL 

1B2E 

03 

SCLRLR 

1B2C 

03 

SCON 

7.0098 

00 

SCP 

0EE8 

03 

SCRNSA 

003B 

01 

SCRN1 = 

004F 


SCRN2A= 

0098 


SCRN2B= 

00 DC 


SCRN3 = 

0099 


SCRN4A= 

004E 


SCRN4B= 

004F 


SCI 

1166 

03 

SC2 

1171 

03 

SD1 

UFO 

03 

SERIAL 

12CB 

03 

SERIN 

12DD 

03 

SEROUT 

1313 

03 

SETCF 

117B 

03 

SETCRT 

1152 

03 

SETDIS 

082A 

03 

SETLCK 

0093 

01 

SETNOR 

082F 

03 

SETTAB 

05A2 

03 

SETUP 

1417 

03 

SETUPR 

1AF6 

03 

SETUPS 

1B02 

03 

SETUP’0 

141B 

03 

SETUP1 

141E 

03 

SETUP2 

14D7 

03 

SETUPS 

1542 

03 

SETUP4 

16B0 

03 

SETUPS 

1795 

03 

SETUPS 

1865 

03 

SETUP7 

18F4 

03 

SETUPS 

19DD 

03 

SFA 

126F 

03 

SFB 

12 AS 

03 

SFCKB 

1407 

03 

SFCKB1 

140F 

03 

SFCKB2 

1416 

03 

SFILL 

1B21 

03 

SFIL1 

1B23 

03 

SFIL2 

1B25 

03 

SFL 

12 AC 

03 

SF1 

1286 

03 

SF2 

128D 

03 

SF3 

12AB 

03 

SF4 

12B9 

03 

SF5 

12BF 

03 

SF6 

12C7 

03 

SHIFTF 

001C 

01 

S10 

12ED 

03 

SI1 

12F3 

03 

S11A 

12FF 

03 

S12 

1301 

03 

SIS 

1306 

03 

SLR 

IB 40 

03 

SMS 

0SE7 

03 

SMSRET 

08FE 

03 

SMST = 

0911 

03 

SMSTL = 

0009 

00 

SMS 1 

08F3 

03 

SMO 

7.009F 

01 

SM1 

7.0D9E 

01 

SM2 

7.009D 

01 

SOFTIN 

10E4 

03 

SOFTI1 

11 IB 

03 

SOR 

0E7F 

03 

SP 

70081' 

00 

SPF 

01A9 

03 

SPO 

01AE 

03 

SP1 

01 CO 

03 

SP2 

. .01.04 ... 

03 

SP3 

01C6 

03 

SRET 

1AFF 

03 

SRT 

1317 

03 

SRT1 

1326 

03 

STAB 

013A 

03 

STACK = 

005F 


START 

0030 

03 

STARTD 

11 DC 

03 

STB1 

05B0 

03 

STB2 

05B9 

03 

STCALL 

083A 

03 

STFILL 

1262 

03 

ST.JMP 

0836 

03 

STOPDM 

11FD 

03 

STP1A 

1420 

03 

STF'IB 

142C 

03 

STP2A 

14D9 

03 

STP2B 

14DB 

03 

STP2C 

14E7 

03 

STP2C1 

14EC 

03 

STP2D 

14EE 

03 

STP2D1 

14F3 

03 

STP2E 

14F5 

03 

STP2F 

14F9 

03 

STP2F1 

14FB 

03 

STP3A 

1544 

03 

STP3B 

1550 

03 

STP3B1 

1562 

03 

STP3C 

1567 

03 

STP3C1 

1572 

03 

STP3C2 

157C 

03 

STP3C3 

1580 

03 

STP3D 

1584 

03 

STP3E 

1588 

03 

STP4A 

16B2 

03 

STP4B 

16BE 

03 

STP4C 

16C3 

03 

STP4C1 

16CF 

03 

STP4C2 

16D9 

03 

STP4D 

16DB 

03 

STP4D1 

16E3 

03 

STP4E 

16E8 

03 

STP5A 

1798 

03 

STP5B 

17A4 

03 

STP5B1 

17C1 

03 

STP5B2 

17C4 

03 

STP5B3 

17E5 

03 

STP5C 

17F0 

03 

STP5D 

17F4 

03 

STP5E 

17F8 

03 

STP6A 

1867 

03 

STP6B 

1875 

03 

STP6C 

1879 

03 

STP6D 

187D 

03 

STP6E 

1884 

03 

STP7A 

18F6 

03 

STP7B 

1904 

03 

STP7C 

1908 

03 

STP7D 

190C 

03 

STP7D1 

1916 

03 

STP7D2 

191C 

03 

STP7D3 

1923 

03 

STP7D4 

1927 

03 

STP7E 

192C 

03 

ST PSA 

19DF 

03 

STP8B 

19ED 

03 

STP8B1 

1 AOS 

03 

STP8B3 

1 AID 

03 

STP8C 

1A 21 

03 

ST PSD 

1A32 

03 

STP8E 

1 ASA 

03 

STP8E0 

1A41 

03 

STP8E1 

1A61 

03 

STRET 

083C 

03 

ST 1 

013B 

03 

ST2 

014F 

03 

sue 

0B37 

03 

sue 1 

0B39 

03 

sxci 

. 1.D9D.. 

03 

.SXM.TC . 

1D8B 

03 

SXMTL 

1DA8 

03 

SX0N1 

13E2 

03 

SXR 

.13E1. 

03 

TAB 

bsci” 

03 

.TABTAB= 

0029 


TBL1 

* 05D6 

03 

TBL2 

05DE 

03 

TBR 

' 05FC 

03 

. 781. 

.. Q5F.3.. 

.. .03... 

TB2 

. 05ET! 

03 

TB3 

05EA 

03 

TB4 

05E7 

03 

TB5 

05F7 

03 . 

TB6 

05 DC 

03* 

TBS 

7009B 

01 

TCNT = 

003A 


T CON 

7.0088 

00 

TEMP 

70005 


TEMPA = 

0005 


TERMIN 

.. 1 l.CB.... 

. 03. 

TFO 

7008D 

01 

TF1 

7008F.. 

..01. 

THOUR = 

003D 


THO 

7008C 

00 

TH1 

7.008D 

00 

TI 

7.0099 

01 

TLO 

7.008A 

00 

TL1 

7008B 

00 

TM IN = 

003.C.. 


TMOD 

7,0089 

00 

TRA 

13AC 

03 

TRANS 

139E 

03 

TRANSM 

139B 

03 

TROK 

” 1384*' 

03 

TROK 1 

13BA 

03 

TRDK2 

13BD 

03 

TRW 

13AE 

03 

TRO 

7.008C 

01 

TR1 

7008E 

01 

TSCROL= 

0017 


TSEC = 

003B 


TXD 

7.00B1 

01 

TO 

700B4 

01 

T1 

70085 

01 

UNDEF 

0767 

03 

UNDLNA 

0009 

01 

IJSCP 

0EF4 

03 

USCP1 

OEFF 

03 

USCP2 

OF 01 

03 

UXOFFS 

0011 

01 

VSP 

0092 

01 

VSPF 

0024 

01 

WEOL 

OAFD 

03 

WLATCH 

i E18 

03 

WORK 

7.0004 


WORKA = 

0004 


W0RK1 

7.0006 


WORK1A= 

0006 


WORK 2 

70007 


WORK2A" 

0007 


WR 

7.00B6 

01 

XACR 

0B65 

03 

XALF 

0B6B 

03 

XATR 

OF 2 6 

03 

XBL.INA 

09F4 

03 

XERM 

0B77 

03 

XGATM 

OB 71 

03 

XGM 

0F3C 

03 

XHSM 

OB 4 3 

03 

XHSM1 

0B45 

03 

XI CM 

0B58 

03 

XKAM 

0B51 

03 

XKSM 

0B4B 

03 

XLATCH" 

0020 


XLONOF 

1BBF 

03 

XL0N1 

1BC7 

03 

XLO 

1BF5 

03 

XLO A 

1C14 

03 

XL! 

1C1D 

03 

XL1A 

1C24 

03 

XL 10 

1CBA. 

03 

XL10A . 

1CBF . 

. 03.. . 

.xuu. 

. X.QQ.X .. 

03 

XL 12 

1CCB 

03 

XL12A 

icbo 

03 

XL 13 

1CD2 

03 

XL14 

1CDC 

03 

XL14A 

1CE1 

03 

XL 15 

1CE3 

03 

XL 16 

1CFF 

03 

XL16A 

1D11 

03 

XL16B 

1D18 

03 

XL17 

1D1A 

03 
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1D3F 

03 
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03 
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03 
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03 
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1D60 

03 

XL2 

1C26 

03 

XL20 

1D63 

03 
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1C28 

03 
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1C44 

03 

XL3B 

1C4B 

03 
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1C57 

03 

XL4 
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03 
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1C74 

03 
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1C6B 

03 

XL4B 

. 1.C7.D.. 

.. .03. 

XL4C 

1C89 

03 

XL4SET 

1C79 

03 

XL7 
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03 

XL8 
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03 

XL8A 
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03 

XL9 
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...03.. 

... XML2 

1D7A 

03 

XMP1 

.1DB2.. 

.. P3..... 

.. XMF'2 

1DBB 

03 

XMP3. 

1DCO 

03 

XMTC 

1BE4 

03 

XMTL 

1D74 

03 

XMTL1 

ID 75 

03 

XMTP 

1DAC 

03 

XMTS 

1BCF 

03 

XMTS1 

1.8 P.3.. 

...03.. 

.XM.TS.2... 

1BDE 

03 

XMTXOF 

13D 1 

.. 03. 

XMTXON 

13E5 

.0.3. 

XM.T25 

1DC6 

03 

XOFF = 

0013 


XOFFRC 

0016 

01 

XOFFSE 

0010 

01 

XON 

0011 


XPCKB 

0B2A 

03 

XF'pS... = 

.001.1.. 


XRVM 

OF 36 

03 

XR2.DI 

0B23 

03 

XST 

1B9D 

03 

XSTAB 

09F7 

03 

XSTABX 

1404 

03 

XSTAT 

1 BAS 

03 

XSTATX 

1401 

03 

XSTL 

1BAE 

03 

XSTR 

1BB8 

03 

.XSTX. 

. 1.3F.E.. 

.. 03. .... 

XXPOS = 

0035 


XYPOS = 

0036 


YF'OS = 

0012 


ZAR 

OF 2 5 

03 

ZATR 

0F08 

03 

ZATRO 

OF 14 

03 

ZDS 

0041 

01 

ZDSESC 

06 B8 

03 

ZDSSBR 

0E3D 

03 

ZDST 

. 06JDF. 

.03. 

.zp.so.... 

0E49 

03 

ZE1A 

06C1 

03 

ZE1B 

06C6 

03 

ZE1C 

06CC 

03 

ZE2 

06DE 

03 

ZTAB 

0ED3 

03 

ZTABT = 

OEDF 

03 

ZTABTL= 

0003 

00 
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$ 19-16 

19-36 

19-53' 

20—7 

20-8 

20-19 

39—9 

39-38 

40-13 

40-36 

41-16 

42-45 

43-11 

43-40 

60-38 
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64-4 

65-10 

65-48 

67-11 

68-46 

71-32 

71-49 

72-30 

72-47 

73-32 

73-40 

74-32 

74-40 

‘75-32 

75-43 

76-30 

76-41 

78-31 

79-3 

81-30 

82-2 

91-11 

91-34 

117-36 

117-37 

134-22 

135-6 

140-29 

140-40 

149-43 

182-39 

183-41 

183-50 

183-55 

186-2 

186-16 

189-14 

189-28 

190-46 

191-43 

1 94-9 

194-23 

197-30 

197-44 

199-54 

200-11 

203-12 

203-26 

207-49 

208-9 

208-19 

208-34 

215-28 



AIM 

67-17 

73-14# 




AT’RM " " 

' 7S-38' ’' 

'76-13# 

76-20 



A1RT 

76-16 

76-30# 

76-41 



A1RTL 

76-iB 

76-41# 




A ISM 

73-35 

75-13# 

75-20 



. Ai‘SR‘ ''' 

'"?4-i'd"' 

'■'75-14'"' 

75-18 

75-22# 

76- i 4 76-18 * ’ 

A 1ST 

75-16 

75-32# 

75-43 



A1STL 

75-iS " 

75-43# 




A2M 

.67-14 

74-14# 




.A2RM " " 

74-38 

iril-iS# 

81-20 



A2SM 

74-35 

78-13# 

78-20 



ACA1 

87-19 

87-22#'' 




ACA2 

87-17 

87-23# 




ACA3 

87-20 

87—22 

87-25# 



ACA3A 

87-28 

87-29# 




ACA5 

"87-26 '" 

‘87-29 

87-31# 



ACCESS 

9-44# 

33-22 

35-36* 

38-35* 


.A CD. 

122-50# 

‘122-5i 





ACD1 122-46 122-49# 
ACDN 67-23 122-45#' 


ACHR2 10-32# 160-8 207-9* 207-10 209-3 


ACL 

ACLO 

118-19# 

118-15 

118-20 

118-18# 





ACL F T 

67-29 

118-14# 





ACPI 

94-23 

94-28 

94-33# 




ACPI A 

94-36 

94-37# 





ACP2 

94-37 

94-39# 





ACP3 

94—18 

94-20 

94-25 

94-31# 

94-38 

94-40 

ACPR 

68-14 

94-15# 





ACR 

119-42# 

119-43 





ACR1 

119-38 

119-41# 





ACRT 

67-26 

119-37# 





ACU 

121-47# 

121-48 






ACU1 121-43 121-46# 
ACUP 67-20 121-42# 


ADA 67-53 139-15# 

ADAM 139-17 139-20# 


ADM3 

ADM3ES 

10-42# 

57-22 

18-4 

57-33 

33-51 
58-38# 

34-37 

34-52 

35-48 

57-35 

174-34 

195-7 






AESC1 

58-19# 

59-16 













ALL 11 

161-26# 

161-29 













ALLINI 

156-11 

161-13# 













ALTCHA 

9-19# 

18-35 

143-31* 

160-9* 

207-11* 

220-40* 

221-16 

221-25 

221-40 

221-50 

223-8 




ALTGRP 

9-22# 

18-23 

18-28 












ANSI 

10-40# 

17-57 

33-57 

34-76 

34-43 

35-1 

35-25 

36-4 

37-17 

57-29 

195-3 

221-14 

221-38 

222-12 


222-20 

223-13 

223-25 

223-41 

226-14 










ANSIES 

57-16 

57-17 

57-19 

57-22 

57—25 

58-14# 









AIMS IT 

58-17 

65-10# 

65-48 












.ANSITL 

58-16 

....65.-48# . 
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67-50 

123-13# 
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APCA 

APDC 

67-47 

67-56 

133-14# 

87-16# 




APDCO 

133-15 

133-18# 





APDC 1 

133-19# 

133-20 





APDL. 

67-44 

129-14# 





A POLO 

129-15 

129-18# 





APDL 1 

129-19# 

129-20 





APIC 

63-44 

131-14# 





API CO 

131-15 

131-18# 





API Cl 

131-19# 

131-20 





APIL. 

67-41 

127-14# 





APILO 

127-15 

127-18# 





API Li 

127-19# 

127-20 





APR 

94-16 

95-16 

95 —j 0 ^ 

95-39 

96-18 


APRMT 

65-46 

95-13# 





ARAMP 

65-37 

68-35 

96-17# 




ARM 

68-8 

72-13# 

72-20 




ARMT 

72-16 

72-30# 

72-47 




ARMTL 

72- i 5 

72-47# 





ASBR 

68-32 

95-35# 





ASBR1 

95-36 

95-38# 





ASBR2 

05-33 

95-39# 





ASCP 

68-23 

141-32# 





ASGO 

90-19 

90-21# 





ASG1 

90-16# 

' *' 90-22* 





ASGM 

68-11 

90-14# 





.ASGMT 

90-17 

91-11# 

91-34 




ASGMTL 

90-16 

91-34# 





.ASGO 

'90-20' 

”90-25# ” 





ASM 

68-5 

71-13# 

71-20 




.ASMR * * " 

71-14 

* * * 71-18* 

71-22# 

72-14 

72-18 

*7*3-18 

ASMT 

71-16 

71-32# 

71-49 




.ASMTL * * 

' 71 -IS''' 

■ • • 7*1-49# 





ASPF 

68-41 

92-18# 





. mvF i * * 

"92-20#" 

* ’ *92-34*' * * 





ASPF1A 

92-22 

92-24# 





.ASPFIB* 

' '92-24 

92-26# 





ASPF1C 

92-26 

92-28# 





ASPF .i *d 

*92-28 

* * * 92-30# 





ASPFIE 

92-30 

92-32# 





. ASPPir 

* *92-3*2 

*92-3*4# 





ASPF2 

92-21 

92—36# 





. AT 2* . 

* *5*4-52* * * * 
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ATBC 

54-50# 

68-2 
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17*3-6* 


2*0-34* 
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.ATTRIET 

AUSCP 

• * 9-13#* * 
68-26 

"*22-2*3*" 

142-35# 

143-49* 

149-24* 

149-30* 

168-15* 

206-48 

206-5i* 207-1* 220-i 8 ' 

220-25* *' '220-36*' "234-95” * * 224-38*.. 

.AorocN 

i 1 - 1 * 2 #* 

* *3*1-2*1** ’ 

174-22* 

i *75-52* 

175-53 





AUTOCR 

10-7# 

47-34 

107-14* 

107-32* 

202-24* 

203-48 




AUtbLF 

i. 0 - 8 # 

4*7- i 5 

108-14* 

108-32* 

202-30* 

204-4 




AUT0WR 

10 - 6 # 

22-32 

97-15* 

97-35* 

197-14* 

198-15 




B’ANKO 

2-27# 

159-14 








BANK 1 

2-28# 

170-39 








BAUDRA 

11-3# 

134-45* 

159-55 

188-24 

189-50 

190-4* 




BELL 

2-4# 

20-4 

56-21 







BFIX 

8-23# 

*1*7-33 

46-18 

46-22 

46-28 

49-20 

49-32 

122-23 125-36* 126-20 

126-24* 126-25 126-36* 126-41* 
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BLINAD 24-2? 24-35 44-14# 46-43 48-14 49-48 52-56 53-30 55-43 86-8 225-27 228-24 230-39 


BLINKA 

9-17# 

143-25* 

144-49* 222-41 


BLINKF 

9-6# 

150-28* 

175-38* 


BLNKC'N 

11 -10# 

150-33* 

175-31* 175-36 

175-37* 

BLNKRA 

11-9# 

150-20* 

175-32 



BRi.153-18# ‘ "i 53-22.i 53-23 

BR2 153-19 153-20 153-22# 


' ''be tab• • 

BS 

‘134-42 " 

2-5# 

135-6# 

19-41 

20-10 

214-34 









' B'TA'B 

53-1-5#' 

60-i 9 

123-18 










BTL 

53-20# 

53-27 











BtLi 

53-26 

53-27# 











BTR 

53-16 

53-30# 











CAN 

2-Ti#' 

‘' 17-51'' 











CAPLOC 

10-20# 

152-14* 

152-16 

162-21 

162-31* 

167-18 

234-27 






CBA" * 

93-15# 

94-33 

232-26 

232-40 

232-52 








CC'RSR 

5-13# 

166-16 











CON 

61-16 

63-20 

120-18 

122-15# 

122-50 








CDN1 

122-16 

122-19# 











CBN 2 

3 22—19 

122-22# 











CDN3 

122—23 

122-26# 











CHARME 

6-11# 

44-24 

45-25 

206-31 

207-32 

238-15 

242-15 

242-16 





CHKS 

243-9# 












CHRORL 

6-33# 

22-25 

130-35 

132-44 

170-29 

170-34 

173-18 

220-37 

238-31 




Cl NT 

5-14# 

163-39 











CL A 

23-22 

45-15# 

112-36 

114-16 

116-50 

130-22 

132-22 

220-30 





CLFO 

63—26 

113-44# 











CL FT 

61-18 

117-37# 

118-19 

118-40 









CLKF 

10-18# 

100-14* 

100-34* 

167-42 

199-43* 

201-8 







CLKRUN 

11-44# 

163-21* 

163-32* 

163—37* 









CLRFLG 

9-50# 












CLRL 

112-16 

112-35# 

113-17 

113-23 

114-39 

115-50 

116-20 






CLRLIN 

46-20 

49-25 

99-18 

99-39 

112-14# 

126-27 

128-24 

161-41 

162-44 

213-21 



CL.RS 

19-31 

61-19 

63-23 

75-38 

76-36 

88—23 

113-14# 

113-45 

161-39 

162-41 

207-20 


CLRTAB 

50-13# 

54-53 

140-35 

> 









CLRTB 

50-17# 

50-19 











CMPORT 

193-24 

230™ 19 

230-43 

231-13 

231-13# 

240-32 

241-35 






CONTLF 

9-43# 

33-20* 

36-26 

37-45 

38-14 








CPF 

23-14# 

24-19 

220-22 










CPF 1 

23-15 

23-19# 











CPF 2 

23-28 

23-31# 











CPF El 

23-16# 

23-29 

23-32 










CPFR2 

23-30 

23-34# 











CPR 

62—3 

64-2 

137-14# 










CPRO 

137-16 

137-17# 











CPROA 

137-17 

137-19# 











CPR 1 

137-14 

137-24# 











CPR2 

136-19 

136-26 

137-19 

137-22 

137-28 

137-31# 







CPRM 

137-24 

137-33# 











CR 

2-8# 

17-29 

17-37 

20-1 

41-52 

42-37 

182-41 

208-25 

214-28 

228-27 

230-31 

241-33 241-33 

CR1 

166-24 

166-26# 











CR2 

166-25 

166-27# 











CRESET 

5-3# 

164-22 











CRNBK 

1.0-27# 

164-40 

202-36 

202-42* 

202-50* 

204-10 







CRT 

19-22 

61-17 

119-14# 

119-42 

120-16 








CRT 1 

119-15 

119-18# 
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CRUL 

CS1 

10-17# 

113-15 

101-13* 

113-19# 

«»* 

o 

*-*• 

I 

CO 

# 

l> 

1 

K> 

202-37 

202-38* 202-41* 202-45 

202-46* 202-49* 204-12 

204-16 

CS2 

113-22# 

113-25 






CSET 

5-15# 

163-29 






CSTOP 

5-12# 







.Q3T.RT . 

....5tU#.. 

..16.3-3.4... 

. .1.657.1.7. 





CTAB1 

17-56 

19-36# 

20-7 






Ximi U.. .17-55. 2Q-7A 


CTAB2 

18-3 

19-16# 

20-8 



. CT.AB.2L 

.. .18-2..... 

...2P-8.#... 




CTAB3 

18-6 

19-53# 

20-19 



.C.TAB3E. 

..1 St5.... 

...20.71.9#.. 




CIS 

11-48# 

16-30 

177-29 



rf ia 

5ft-41 

61-89 

6 .8-56 

124-18# 


CUA1 

124-18 

124-19# 




.CUA2..., 

.124-19... 

..124.721#.. 




CUA2A 

124-21 

124-22# 




_CU A3_ 

.1.24t22 .. 

..124-2:4#.. 




CUBO 

124-17 

124-28# 




GOBI 

124-3J 

13.4734# 




cue 

124-15 

124-16 

124-38# 



.coco. ... 

.1.2.4t39. .. 

..124.74.6#.. 




CUCOA 

124-49 

124-50# 




.CUC.1..... 

.1.24-41... 

. .124~42#. 




CUC1A 

124-42 

124-44# 




.CUC2 ... 

. 1.24.-48... 

124-51# 




CUP 

19-19 

61-15 

63-17 

118-42 

121-15# 121-47 

CUP1 

. 1.2.1.716... 

..121.718#.. 




CURIA 

121-17 

121 -20# 




CUP IB 

.12.1-20... 

121-23# 




CUR 

124-26# 

124-30 

124-32 

124-34 


CUR 1 

124-35# 

124-44 




CUR 2 

124-24 

124-50 

124-52# 



CURSOR 

166-15# 

175-26 




D25L 

81-33 

99-37# 




DC 

..7.8 7.46... 

106-31# 




DCLK 

158-22 

232-20# 




DCLKO 

232-21 

232-24# 

234-23 

240-31 


DCLK 1 

232—29 

232-31# 




DCMDRE 

6-4# 

163-28 

163-42 

164-16 

165-16 166-15 

DDATRE 

6-3# 

164-25 

166-19 



DEOL 

62-12 

76-39 

97-35# 



DISPSE 

11-19# 

232-20 

232-24* 



DISPST 

158-28 

162-46 

210-16 

234-16# 

240-26 

DKI 

19-28 

62-18 

63-38 

71-38 

151-32# 

DM1 

170-20 

170-39# 




DM1A 

170-45 

170-55# 




DM IB 

170-46 

170-48# 




DM 1C 

170-48 

170-49# 




DM ID 

170-50 

170-51# 




DM1E 

170-55 

170-56# 




DM2 

170-47 

170-57# 




DM3 

170-49 

170-56 

171-2# 



DM4 

170-51 

170-53 

171-14# 



DMAANL 

6-32# 

170-28 




DMADRH 

8-3# 

163-19* 

169-30 

171-12* 


DMADRL 

8-4# 

163-18* 

169-29 

171-9* 
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CiMAMeH 

OMAORL 

6“24# ' 
6-34# 

163-18 

172-29 

i'63-i9 

171-11 




dMatyp 

i 1-47# 

169-22* 

170-20 

170-21* 

172-50* 



DMLN 

7-29# 

170-43 

170-46 

170-48 

170-50 

170-55 

170-57 171-3 

DMLNA 

7-30# 

163-17* 

169-24 

175-24* 




DMPTR 

7-27# 

171-4 

171-5 





OMPTRA 

'"7-28#" 







DOXOFF 

174-42 

178-14# 

230-17 





.DOXQN* * 

157-1" 

' 178-4*1#* * 

' '230-46''' 





DSADRH 

8-19# 

17-26 

57-17* 

69-17* 

69-38* 

124-16* 


.D'SAtiRL 

8 -20# 

• •X7-25• • • 

•' '57-V6* ' 

' * '57-36* 

37-33* 

57-36* 

69—18* 69-37* 124-15* . 

DSPO 

234-17 

234-20# 






.D'SP'l"" 

'234-27' ‘ * 

'234-30*#'' 






DSP 2 

234-32 

234-35# 






.DSPS'*" 

234-37''' 

'234-40'#'' 






DSPR 

234-16 

234-18# 






.DSR*. 

"63-20"' 

125-15# " 






DSRO 

125-16 

125-19# 






DSROA 

125-19 

125-20# 






DSR 1 

125-20 

125-23# 






' DSRTA'" 

T23-24 

125-27#" 






DSR2 

125-27 

125-30# 






&SR2S'' 

125-31 

125-32# 






DSRERR 

125-30 

125-34# 






' D'SROK '' 

'123-32' * ‘ 

125-33# 






DSTARE 

6-5# 

163-42 

164-13 

164-16 

175-28 



DTR 

11-41# 

178-19* 

178-46* 





DX 

9-31# 

22-14* 

166-25 

166-29* 




E25L 

78-34 

99-15# 






EACR 

71-47 

79-1 

107-14# 





EALF 

' '78-55' 

108-14# 






EAM 

61-10 

98-13# 






.EARCiM 

6-26#' 

' 'i 59-35 

211-17 





EAROMR 

9-8# 

159-29* 

159-31* 





.EAROMS 

9-5# 

211-30* 

211-32* 





EB1 

115-41 

115-44# 






EB2 

115-45# 

115-52 






EB3 

115-46 

115-49# 






EBD 

61-48 

88-19 

115-40# 





EBL 

62-4 

89-20 

114-14# 

115-42 

115-47 



EBLNK 

91 -23 

144-49# 






EC 

81-45 

106-13# 






EE1 

116-16# 

116-21 






EE1A 

116-17 

116-18# 






EED 

61-24 

63-32 

88-15 

116-14# 




EEL 

62-1 

89-24 

114-38# 





.EER. 

116-18 

116-22# 

116-47 





EERM 

71-44 

110-14# 






EGATM 

71-35 

109-14# 






EGM 

61-20 

91-29 

146-13# 





EGTT 

74-21 

74-32# 

74-40 





EGTTL 

74-20 

74-40# 






EHALF 

' ' 63256 ' 

91-17 

144-13# 





EHSM 

61-41 

78-40 

102-13# 

193-50 




El CM 

61-14 

71-41 

105-13# 





EID 

67-35 

88-13# 






EIDi 

88-14 

' '88-17#' 
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EID 2 

88-18 

88-21 # 




.EIL. 

67-38 

89-14# 




EIL1 

89-15 

89-18# 




EIL 2 

89-19 

89-22# 




EIR 

88-22 

88-25# 

89-23 



EKAM 

6.1.711... 

...65-28... 

78-52 

104-13# 


EKC 

81—36 

100-14# 




.EKI. 

..19-25... 

62t16 

63-41 

72-36 

151-13# 

EKSM 

/., 2—9 

78-49 

103-13# 



ELB 

. .65-1.3... 

66—16# 




ELBT 

66-22 

67-11# 

68-46 



ELBTL 

.. 667.2 1 ... 

68-46# 




ENBLCU 

9-40# 

106-13* 

106-31* 

166-24 


EOL 

61-25 

63-29 

89-16 

115-14# 

116-14 


E0L.1 115-16# 116-42 

EQMT.73 t 21.73-32# .... 73-40 


EQMTL 73-20 73-40# 

ERM . 9-4 1 #.. 110714*...! .l.Qr.34*... 1.68-1.6* .. 168-38* ... 172.-23 

ERM1 240-37# 240-40 

ERM2 24.07.46#... &4p7.48 ....... . 

ERM3 241-3# 241-5 

ERM4.... 24.1-11# .. 241-1.3. 

ERM5 241-19# 241-21 

ERM6 241-27# 241-29 

ERRO 240-25 240-29# 

ERR1 240-43 240-51# 

ERR2 240-51 241-8# 

ERRS 241-8 241-16# 


ERR4 241-16 241-24# 
ERRS.... 24.1-24 24.1-32# 


ERROR 

ERRORS 

161-43 

11 - 22 # 

207-40 

160-17* 

240-24# 

161-17* 

163-53* 

207-17* 

207-88 

236-25* 

237-28* 

238-44* 

240-24 

240-34 




ERVM 

62-5 

91-26 

145-13# 












ESC 

2 - 12 # 

19-38 

33-55 

34-40 

34-55 

36-2 

37-25 

37-26 

42-7 

42-10 

42-13 

42-16 

42-19 

42-22 


42-25 

42-28 

42-31 

94-17 

137-33 

138-18 

138-44 

139-20 

221-18 

221-22 

221-27 

221-32 

221-42 

221-46 


221-52 

222—2 

222-14 

222-22 

223-15 

223-19 

223—28 

223-32 

223-46 

224-10 





ESCCOB 

18-20 

19-39 

57-14# 












ESCRET 

57-29 

57-32 

57-35 

57-37# 











EUNDL 

91-20 

144-31# 













EZM 

75-35 

76-33 

98-31# 












FCIF 

16-22 

26-'l5# ‘ 

"56-22 












FCKB 

16-41 

30-17 

31-15# 

153-18 

181-15 

181-18 

207-27 

236-18 








FCOF 16-32 29-15# 
FI 1 26-16 26-20# 


FI2 26-20 26-23# 
FIS 26-31 26-34# 
FILL "" 170-25.170-27# 


FK1 

31-17 

31-21# 




FK2 

31-33 

31-36# 




FKDLY 

31-28 

31-29 

31-37 

31-40 

31-46# 

FKDLY1 

31-47 

31-47# 




FKL 

31-27# 

31—38 




.FKR. 

31-34 

31-40# 




FL1 

170-30# 

170-35 




F01 

29-16 

29-20# 




FOR 

29-28 

29-32# 




.FREQ 

16 - 28 # 

164-30 

164-38 

170-45 

175-43 203-1* 204-24 
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FULLDP' 
CODES 

' i'tf-10# 
65-16 

" *26-18 " 
147-26# 

' 188-55*' 

"190-25 . 

GOPICK 

G1DES 

T2-Si' ’ 
65-19 

14G-4 

147-35# 

T'49-16# 


.GI'P'ICK 

19-48 

148-10 

i49-20# 


GATM 

9-55# 

109-14* 

109-34* 

168-17* 220-21 

GOES' '' * 

T 47-30’ *' 

"i'4 7-39 

' T 47-44# ' 



GDESO 147-45# 147-49 

GD'ESl' *' 147-44.147-46# 

GDES2 147-48 147-51# 

ODESSA" 147-54 " " 147-554' 


GDES3 147-46 148-1# 


.ODESSA' 

GDESR 

i'46-i' 

147-53 

* 148-7#''' 
147-55 

148-12# 












.GETNUM' 

GNP 

'196-31 

54-50 

"l'96'-4'4 " 
71-13 

"2r4-T7*#* 

72-13 

75-13 

76-13 

78-13 

81-13 

85-15# 

87-16 

87-25 

88-13 

89-14 

90-14 

90-21 


92-20 

94-15 

95-35 

93-17 

i i 1—13 

ili-17 

111—21* 

I'i8-l4 

i 19-37 

‘12*1-42 

1'22-45 

123-13 

125-15 

125-23 


127-14 

129-14 

131-14 

133-14 

139-15 

141-32 

142-35 

150-16 

226-15 






GNPi 

85-15 

85-20# 













GNP2 

85-23 

85-26# 













ONPF' ‘ ‘ ‘ 

‘ ‘ ‘ ’9-39#'' 

‘' 58-15* ' 

'' '35-15 

"85-i6* " 











GNUMO 

214-19# 

214-49 













.GNU M l’' ‘ 

214-24# 

’2i‘4-4i " 

214-56 

215-2 

215-21 











GNUM2 214-28 214-34# 
GNU M2 A’ ‘214-34 " " 214-36# 
GNUM2B 214-35 214-40# 
GNUM2L 214-42# ' *2i4-43 ‘ 
GNUM4 214-36 214-53# 
GNUM4A 214-53 2i4-55# 
GNUM4B 214-55 214-56# 


GNUM4C 215-i.215-2# 

GNUMR 214-29# 214-54 


GNUMS 

GPICK 

215-14 

149-18 

215-25# 

149-24# 

215-28 









GPICKT 

149-28 

i49-43# 










GRPH 

9-20# 

18-21 

146-13* 

146-31* 

220-42* 

221-1* 

221 —9 





GSEL 

9-29# 

148-4 

148-10 

149-16* 

149-20* 







GSET 

8-32# 

148-2* 

148-3* 

148-7* 

148-9* 

149-17 

149-21 





HALFIA 

9-18# 

143-27* 

144-13* 

168-37* 

222-53 







HAZ 

10-43# 

17-22 

18-18 

33-52 

34-38 

34-53 

35-49 

124-17 

124-39 137-14 

160-11 

174-27 174-35 193-40 

HAZESC 

57-25 

57-36 

59-14# 









HAZINI 

160-12 

168-37# 

193-41 









HAZT 

59-15 

63-11# 

64-4 









HAZTL 

59-14 

64-4# 










HCLFT 

20-11 

118-39# 










HCLFT1 

118-44 

118-47# 










HCRT 

20-14 

120-15# 










HCRT1 

120-20 

120-23# 










HEE1 

116-45# 

116-54 










HEE1A 

116-46 

116-47# 










HEED 

63-35 

116-41# 










HIR 

168-18 

168-39# 










HNDSHK 

10-33# 

16-29 

177-28 

178-17 

178-44 

189-4* 

190-33 





HSLINE 

8-31# 

17-35* 

102-14* 

154-22* 

154-27* 







HSMODE 

10-21# 

17-30 

102-13* 

102-32* 

154-14 

193-47 

195-14 





HSSTOP 

9-52# 

16-21 

17-36* 

102-34* , 

154-21* 

230-45 






HT 

2-6# 

19-44 

20-16 

37-22 
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HTO 

55-17 

55-20# 








HT1 

55-27 

55-29# 








HT2 

55-28 

55-34# 








HT3 

55-36 

55-41# 








HTAB 

20-17 

55-13# 








HTC 

54-32# 

54-51 

140-32 







HTS 

54-13# 

65-43 

140-38 







HTS1 

54-14# 

54-33 








11 

15-15 

15-17# 








12 

15-24 

15-26# 








13 

15-33 

15-35# 








15 

15-42 

15-44# 








IBUF 

6-14# 

25-16 

25-33 

25-34 

26-24 

26-31 26-32 

27-21 

242—6 

242-7 

IC1 

163-52 

163-55# 








iXMODE 

9-51# 

18-38 

35-3 

35-12 

105-13* 

105-31* 234-37 




ICOUNT 

8 -8# 

25-21 

25-30* 

26-15 

26-34* 

27-16 




IDT 

61-40 

138-15# 








IDTM 

138-15 

138-18# 








IDTT 

61-55 

138-37# 








IDTTM 

138-41 

138-44# 








iedHa 

2-33# 

169-21 

172-49 







IEINIT 

2-32# 

161-37 

170-18 







IEXT10 

15-16 

15-49# 








IFCP 

16-24 

17-21# 








IFETCH 

8-7# 

26-25 

26-29* 

26-30 

26-32* 

27—22 




IFP1 

17-29 

17-30 

17-41# 







IFP1A 

17-43 

17-44# 








IFP1B 

17-41 

17-49# 








""iFPIC" 

i 7—49 

17-50# 








IFP2 

17-50 

17-55# 








.IFP2A 

i7-57 

' 18-1 

18-4 

18-7# 






IFP3 

.17-51 

18-18# 








ITF3A 


•■•13-19**" 

18-2*1#' 







IFP4 

18-22 

18-26# 








. Iff* 

' * 13-21''' 

* *18-23* ** 

* *13-26* **" 

' 18-28 

18-35# 





IFP5A 

18-30 

18-36# 








.iff-r" 

17-44 

17-4*7 

*18-38 

18-44# 






IFF A 

17-21 

17-22 

17-25# 







.j FPRET 

18-12 

18-45# 








IHI 

6-16# 

25-27 








.IKB1 

‘ *1*67-1*3 ‘ *' 

167-20# 








IKB2 

167-26 

167-28# 








.ikes'" 

167-34" 

167-36# 








IKB4 

167-42 

167-44# 








■ t FB5 " 

1 67 -50" ‘* 

*16*7-52#** 








IKB6 

167-20 

167-28 

167-36 

167-44 

167-52 

167-55# 




1 L*£ N 

6—17# 

*25-22 

*2*5-33 

26-31 






ILO 

6-15# 

26-20 








.IN3. 

159-38# ' 

* 15*9-49* * * * 








INS A 

160-1 

160-3# 








.IN3B 

*1*59-57*"' 

160 -i# 








IN4 

160-11 

160-14# 









'INS.1*60-IS** ‘ * T60-17# 


INDX1 

7-11# 

50-15 

50-19 

51-24 

51-32 

52—27 

52-51 

113-20 

113-22 

113-24 

115-44 

115-49 

115-51 

116-15 


il*6-i*6 

116-17 

116-19 

116-44 

116-45 

116-46 

116-49 

118-18 

118-20 

119-41 

119-43 

121-46 

121-48 

122-49 


122-51 

127-18 

127-20 

129-18 

129-20 

130-18 

130-43 

132-19 

132-32 

132-56 

153-16 

153-22 

159-18 

159-23 


i59-36 

159-49 

160-30 

161-24 

161-29 

186-36 

187-9 

211-18 

211-28 

212-16 

212-21 

213-26 

213-29 

236-16 
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236-23 

237-i 6 

237-25 

238-18 

238-36 

239-15 

239-19 




INDX1A 

7-12# 

115-46 









INDX2 

7-13# 

"52-33 " 

52-44 

131-18 

131-20 

133-18 

133-20 

153-17 

153-23 172-18 

172-30 173-22 186-38 187-7 


212-17 

212-20 

236-17 

236-22 

237-17 

237-24 

238-19 

238-35 



INDX2A 

7-14# 










INIT 

159-14# 

161-20 

162-27 








tNlfCR* 

l'6T-:53'' ‘ 

i'63-i4# 









INITKB 

157-13 

161-44 

167-14# 

182-29 

199-37 

199-44 





IN'MOV' 

' i'S9-2d'' * 

' .159-25 '' 

160-25# 

160-30 







IPINIT 

2-31# 

161-31 









' TR'd'' 

i56-41 

175-18# 









IRQ1 

175-34 

175-36# 









.rftiss’''' 

i75-33 

175-35 

175-36 

i 75-41# 







IRQ3 

175-43 

175-46# 









.IRi34‘ ‘ * * 

’175-45 

' 175-4*7#' 









IRQ4A 

175-51 

175-54 

176-1# 








. mi& ' 

i'75-4'4 

175-46 

175-50 

176-4 

176-8 

176-11# 





I SCON 

2-30# 

159-53 









ISTORE 

8-6# 

25-17 

25-31* 

25-32 

25-34* 

159-16 





ITMOD 

2-29# 

159-52 









I THRO 

15-25 

15-50# 









KBACC 

38-35# 

39-18 









kbbRea 

39-24 

153-15# 

153-21 








KBCO 

236-17# 

236-23 









KBC1 

236-iS# 

236-20 

236-22 








KBC2 

236-19 

236-22# 









KBCHK 

161-18 

236-16# 









KBCP 

16-43 

30-19 

33-13# 








KBCPLK 

39-27 

152-14# 









KBCRT 

33-48 

40-13# 

40-36 








KBCRTL 

33-47 

40-36# 









KBC_.BE 

4-31# 

56-16 









" ‘ *kbcLdc 

4-33# 

100-35 

167-38 








KBC-.dk 

4-38# 

151-33 

167-30 

167-33 







KBC_DR 

4-37# 

167-46 









KBC_.EC 

4-32# 

100-15 

167-38 

167-41 







KBC-EK 

4-39# 

151-14 

167-30 








KBC-EL 

4-34# 

152-15 

167-14 

167-17 







“ ‘' KBC-ER* 

4-36# 

167-46 

167-49 








KBC—ID 

4-30# 

167-54 









KBC_OF 

4-40# 

167-22 

167-25 








KBC-ON 

4-41# 

167-22 









kbcLxl 

4-35# 

152-17 

167-14 








KBDISF 

9-45# 

16-40 

151-13* 

151-32* 

167-34 






KBDT 

33-29 

39-9# 

39-38 








KBDTL 

33-28 

39-38# 









KBEi 

38-14 

38-17# 









KBENT 

38-14# 

39-36 









KBFNT 

35-54 

43-11# 

43-40 








KBFNTL 

35-53 

43-40# 









KBIDNU 

8-30# 

■35-42* 









KB IN 

11-38# 

30-15 

30-27 

30-36 

30-47 

31-17 

31-30 

32-15 



KBOUf 

11-37# 

30-24* 

30-29* 

30-45* 

30-53* 

31-27* 

31-31* 




KBPDT 

34-25 

41-16# 

42-45 








KBPDTL 

34-24 

42-45# 









KBS 1 

37-45 

37-47# 










KBSCR1 154-16 154-19# 
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KBSCR2 

KBSCRO 

154-14 

39-30 

154-21# 

154-14# 




KBSPAC 

37-44# 

39-15 




. mim ... 

37-15# 

...39t12... 




KB-0 

3-30# 

41-18 

42-3 



KB„1 

3-31# 

41-21 

42-6 



KB-2 

3-32# 

41-24 

42-9 



. KB-3 

3-33# 

41-27 

42-12 



KB—4 

3-34# 

41-30 

42-15 



KB—5 

3-35# 

41 -33 

42-18 



KB—6 

3-36# 

41-36 

42-21 



KB_7 

3-37# 

34-54 

41-39 

42-24 


KB-8 

3-38# 

41-42 

42-27 



KB—9 

3-39# 

41-45 

42-30 


. % * 

KB—ACC 

4-7# 

39-17 

181-17 



KB-BRE 

3-23# 

;t}9_28 

153-20 



KB-CAP 

3-24# 

39-26 




KB-CNT 

3-11# 





KB-.COM 

3-43# 

41-57 

42-42 



KB-DAS 

3-42# 

41-54 

42-39 



KB-DEC 

3-40# 

41-48 

42-33 



KB-DOW 

3-15# 

40-18 

186-13 



KB-ENT 

3—4 i # 

38-15 

*39-35 ’ 

41-51 

42-36 

KB-ERA 

3-19# 

40-33 




KB-F1 

4-9# 

43-13* 




KB-F2 

4-10# 

43-16 




KB-F3 

4-11# 

43-19 




KB-F4 

4-12# 

43-22 




KBlF5 

4-13#' 

”*43-25’" 




KB_F 6 

4-14# 

43-28 




.KB-F7 

4-15# 

43-31 




KB-F8 

4-16# 

43-34 




.KB-F9 

4-17# 

43-37* 




KB-HEL 

3-20# 

40-30 




KB-HOM 

”*3-i8#“ 

*40-27 




KB-ID 

4-19# 

35-39 




KB-LEF 

3-16# 

40-21 

186-4 



KB—POW 

3-28# 

39-20 

236-20 



.KB-RIG 

3-17#‘ 

'40-2*4” 

”i 8*6-7. 



KB—SCR 

3-21# 

39-29 





KB-lSET 3-22# 39-32 * 183-35 ' 183-38 208-28 208-31 

KB-SHF 3-10# 34-54 42-3 42-642-942-1242-1542-1842-2142-24 42-27 42-3042-33 .42-36 


.42-39.42-42.183-38.208-31 

KB—SPA 3-26# 39-14 208-21 

‘KBiTAB ' *" 3-25# * ‘ * 39-11. 


KB-UP 3-14# 40-15 186-10 


KC1 

KPO 

152-16 

33-13 

i 5’2‘- i 8# 
33-17# 




KP1 

33-22' ' 

33-28# 




KP10 

35-25 

35-29 

35-31# 



KP11 

34-43 

34-45# 




KP 12 

34-54 

35-19# 




.KP3.3 

35-1 

”35-7#”” 




KP14 

35-3 

35-5# 




KP15 

35-12 

35-14# 




KF‘ 16 

34-27 

34-30# 




.K*P i 6 A 

*34-33# * 

■”34-37*”' 

34-38 

34-52 

34-53 
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KP2 

KPS 

33-31 

33-57 

33- 42# 

34- 3# 

38-16 









KP4 

34-4 

34-5 

34-9 

34-13# 








KPS 

34-6 

34-10# 










KP 6 

33-50 

34-19# 










KF’7 

34-20 

34-22# 










KPS 

34-30 

34-52# 










KP9 

34-32 

34-37# 










KPA 

33—23 

35-36# 










KPADAL 

10-16# 

34-32 

104-13* 

104-31* 

199-30* 

200-39 






KPADSH 

10-15# 

34-20 

103-13* 

103-31* 

199-24* 

200-33 






KF’B 

35-39 

35-48# 










KPC 

36-4 

36-12# 










KPC1 

36-26 

36-29# 










KPCOF 

33-56 

34-2 

4 —;-{ 

34-14 

34-34 

34-41 

34-45 

34-47 

34-56 

35-5 35-8 

35-10 35-14 35-22 


35-27 

35-31 

36—3 

36—6 

36—8 

36-14 

36-18 

36-20 

36-26# 



KPR 

33-15# 

33-44 

33-51 

33-52 

34-28 

34-35 






KPR 2 

35-24 

35-48 

35-49 

35-56 

36-21# 







KSR 

154-23 

154-28# 










KTO 

37-17 

37-20# 










KT1 

37-15 

37-18 

37-22# 









KTM1 

37-16 

37-25# 










KTM2 

37-19 

37-26# 










LOT 

179-22 

182-39# 

183-41 









LOTL 

179-21 

183-41# 










LI 

18.2-18 

.184-15#. 










LI A 

184-21 

18*4—23# 










.LIT. 

.18.27.21... 

..183-50#. 

183-55 









L1TL 

182-20 

183-55# 










.L2. 

.18.5r.15.... 

. I. 8 . 6 . 733 # . 










L25EN 

9-32# 

16-46 

87-20 

99—15 

99-16* 

99-37* 

124-32 

142-16 

210-15 

229-15 234-17 


.L35.M8.M. 

... A7.1 2 # . 

. .186-33... 

..313-24 . 

217-17 

217-18 

217-32 

232-31 

232-43 

. .2-3.27.55 ... 



L250N 

10 - 22 # 

16-45 

162-42 

197-8* 

198-9 

210-14 

234-16 





.L2A. 

.1867.37#. 

..18779.... 










L2B 

186-40# 

187-7 










.L2.C. 

J86-49 

186-52# 










L 2 D 

186-55 

187-1 

187-3# 










. L2T...3,8.3718 . XQ&-Z* . X$6~\h . 

L2TL 185-17 186-16# 

..C3..1.88-1.4.X 82-45#. 

L3A 190-3 190-6# 

.L3AT.18.8-26..... 1.90.-1..190-46#... 191-43.. 

L3ATL 188-25 188-30 189-51 19*1-43# 

.L3B..19.0-13 .... 1.9.Q-15.190-17 .... 1.9p-1.9#. 

L3C 190-25 190-27# 

L3P..190r33.1.90-35#. 

L3T 188-17 189-14# 189-28 

.L3.TL.138-1.6.... 18.9-28#. 

L4 193-14 194-40# 

.L4A.19.4-45.1.94-47# 

L4B 195-3 195-5 1*95-7 195-9# 

.L4.T.193-17.... .194-9# .... 194-23. 

L4TL 193-16 194-23# 

.L 5 .1.96-1.4.198-4#.. 

L5T 196-17 197-30# 197-44 


L5TJL.196-16.1.97-44# 

L6 199-14 200-28# 
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L6T 

L6TL 

199-17 

199-16 

199- 54# 

200- 11# 

200-11 



L7 

202-14 

203-43# 




_L?C1_ 

204-10 

204-15# 




L7C2 

204-12 

204-14 

204-16 

204-18# 


L7D 

204-24 

204-26# 




L7T 

202-17 

203-12# 

203-26 



L7TL 

202-16 

203-26# 




L8 

206-14 

208-51# 




LSA 

209-3 

209-5# 




Lst 

206-17 

207-49# 

203-9 



L8T2 

206-36 

208-19# 

208-34 



L8TL 

206-16 

208-9# 




L8TL2 

206-35 

208-34# 




LCIF 

27-16# 

56-19 




LF 

2-7# 

19-55 

230-31 

241-33 

241-33 

LI 1 

27-17 

27-21# 




1 TNADH 

R~ 16# 

22-21 

22-40* 

44-25# 

115-20 

LINADL 

8-17# 

22-20 

22-39# 

44-22# 

115-19 

. LKB . 

.. .32t.1 4# . 

. 2P7r.34 . 

.230-5.0... 



LKBR 

32-15 

32-17# 




LKUP1. 

1.7.97-20... 

..}.7?.r?4... 

. .1.79-27#. 



L.N1B1 

184-20 

184-32# 




LN1B2 

184-2*2 .. 

184-33# 




LN3B 

191-2 

191-51# 




LN3B1 

191-5 

191-52# 




LN3B10 

191-32 

192-4# 




LN3B11 

191-35 

192-5# 




LN3B12 

191-38 

192-6# 




LN3B13 

191-41 

192-7# 




.LN3B14 

190-5 

191-11 

191-17 

191-23 

192-8# 

LN3B3 

191-8 

191-53# 




LN3B5 

191-14 

191-54# 




LN3B7 

191-20 

192-1# 




.LN3B8 

*191-26 " 

3. 92-2# 




L.N3B9 

191-29 

192-3# 




LN3C1 

190-12 

192-9# 




LN3C2 

190-14 

192-10# 




LN3C3 

190-16 

192-11# 




LN3C4 

190-18 

192-12# 




LN3E1 

190-24 

i92-is# 




LN3E2 

190-26 

192-14# 




LN3G1 

190-32 

192-15# 




LN3G2 

190-34 

192-16# 




LN4B1 

194-44 

”i95-29# * 




LN4B2 

194-46 

195-30# 




LN4D1 

195-2 

195-31# 




LN4D2 

195-4 

195-32# 




LN4D3 

195-6 

195-33# 




LN4D4 

195-8 

195-34# 




.LN7i:ii' 

204-11 

204-39# 




LN7D2 

204-13 

204-40# 




.L.N7D3 ' 

204-15 

204-41# 




LN7D4 

204-17 

205-1# 




LN7F1 

204-23 

205-2# 




LN7F2 

204-25 

205-3# 




.LNSB'T'' 

209-2. 

209-19# 
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LN8B2 209-4 209-20# 
LNOFF 218-15 218-23# 
LNON ’"'218-i7' '218-24# 


LOOKUP 

179-19# 

182-22 

185-19 

188-18 

193-18 

196-18 

199-18 

202-18 

206-18 






LORDER 

11-27# 

44-15 

45-16 

46-21 

49-26 

161-23 

171-2 








MAIN 

16-19# 

16-45 

16-46 

16-49 











MAXCHA 

2-20# 

22-31 

24-24 

52-53 

87-28 

87-30 

118-47 

119-15 

120-16 

124-23 

124-51 

132-16 

132-20 


MAXLIN 

2-18# 

24-27 

49-17 

49-22 

87-19 

99-17 

99-38 

99-41 

113-15 

115-41 

116-17 

116-46 

121-20 

122-16 


122-19 

124-31 

124-41 

124-43 

125-19 

125-31 

125-34 

126-32 

126-33 

128-29 

142-15 

161-40 

162-43 

212-1*6 


213-20 

228-21 

229-17 

230-36 

242-22 










MLATCH 

6-7# 

'150-30 

231-37 












MN1 

16-21 

16-23 

16-26# 













MN1A.16-28.16-30# 

MN1B 16-29 16-31# 


MN1C 16-34.16—36# 

MN1D 16-36 16-38# 

Hn2 .16-26.16-27. 16-30 16-31 *16-33.16-40# 

MN3 16-40 16-42 16-45# 

MODE.10-38#.98-i3* * ’ * 98-31* * * 193-30.i 93-38*. 

MONITO 10-29# 17-41 193-56* 195-20 

MSGCL'* 234-26" ’' 235-3#. 

MSGIC 234-36 235-13# 

MSGOL ' ’ 234-31.235-8#. .. 

NKC 78-37 100-34# 


NORM ' 17-29#.69-37 69-38 242-18 242-19 

NRMO 17-33 17-34# 


NRM1 

NULL 

17-34 * 

2-3# 

17-35 

42-4 

17-37# 

42-34 

42-37 

42-40 

42-43 






NUMCHA 

2-21# 

44-19 

45-20 

112-37 

115-16 

116-51 

124-21 

124-49 

130-15 

171-7 212-17 

213-26 225-24 

NUMLIN 

2-19# 

113-19 

128-28 

161-24 

166-26 

170-48 

170-50 

170-55 




NVR1 

239-17# 

239-19 










NVRCHK 

160-14 

211-13 

239-13# 









NVRSUM 

11-4# 

160-15 

211-14* 









OBUF 

6-19# 

6-20 

28—29 

29-20 

29-29 

29-30 

242-10 

242-11 




OFETCH 

8-11# 

29-16 

29-21 

29-25* 

29—28 

29-29* 

33-44 





OKTRAN 

9-30# 

16-27 

174-46* 

177-25 

177-32* 

231-13 






OLEN 

6-20# 

28-23 










ONLINE 

10-9# 

16~26 

28-15 

162-19 

162-33* 

167-26 

174-31 

182-28* 

184-21 

234-32 


OSTORE 

8-10# 

28-22 

28-30 

28-33* 

29-15 

29-26 

29-30* 

33-43 




PBS 

19-42 

117-36# 










PBS1 

117-39 

117-42# 










PC IF 

25-15# 

28-16 

28-19 

36-29 

174-40 







PCKB 

30-13# 

30-21 

30-30 

56-17 

100-16 

167-55 






PCL1A 

111-14 

111-15# 










PCL1B 

111-18 

111-19# 










PCL1C 

111-22 

111-23# 










PCL2 

111-15 

111-19 

111-23 

111-25# 








PCLK 

68—38 

111-13# 










PCOF 

28-15# 

33-14 

36-27 

37-23 

37-47 

94-31 

137-31 

154-19 




.PCR. 

.. 2.2-33 ... 

47-1.4... 

....47-3.5... 

.. .48-1.3#.. 








PCRLF 

20-2 

47-14# 










PDC 

. .6 1 -28 

. .1.32-16.#.. 

1.33.- 1.9 .. . 









PDC1 

’ i32-35# * 

132-56 










..PP.C2 ... 

.132-3.3... 

. 13.2r.57.#.. 










PDL 

61-27 

63-47 

128-15# 

129-19 








.RDLO.... 

.128-2 A#.. 

,. 138-3P. ... 










PDL 1 

128-23 

128-27# 
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PDL2 

PDLA 

128-27 

128-20 

128-32# 

128-21# 








PFIELD 

11-21# 

23-14 

55-22* 

55-29* 

55-34* 

92-36* 

112-14 

112-15* 

112-17* 113-44* 113-46* 168-39* 172-25 173-1 


226-25 


226-29* 

230-21 

230-22* 

230-41* 




PI 1 

25—22 

25-26# 








P12 

25-27 

25-30# 








PIS 

25-33 

25-36# 

26-35 

29-32 






PIC 

18-41 

130-15# 

131-19 







PIC1 

130-27# 

130-43 








PIL 

61-26 

63-44 

126-18# 

127-19 






PILO 

126-27# 

126-34 








PIL1 

126-25 

126-30# 








PIL2 

126-30 

126-36# 








PI LA 

126-22 

126-23# 








piLret 

126-28 

126-40# 

128-25 

128-36 






PILRT1 

126-23 

126-32 

126-41# 

128-21 

128-28 





PIR 

25-24 

25-37# 








PKO 

30-18 

30-20# 








PK1 

30-15 

30-23# 








PK1A 

30-27 

30-32# 








PK2 

30-36# 

30-42 








PK3 

30-36 

30-45# 








PK4 

30-47# 

30-48 








PK5 

30-47 

30-51# 








PKDLY 

30-37 

30-38 

30-39 

30-40 

30-41 

30-54# 




PKL 

30-34# 

30-51 








PKR 

30-43 

30-49 

30-53# 







PLF 

22-34 

47-15 

47-34 

47-36 

49-16# 

65-40 

128-35 



F'LF 1 

49-17 

49-19# 








PLF2 

49-20 

49-22# 








.PLF3"" 

"49-2i” 

* *' 49-2*4# * 








PLFCR 

19-56 

47-34# 








.PLFLP* • • 

"49-38#* 

‘ ’ * *49-4*2* ’ * 








PLFRET 

49-22 

49-47# 








. mmm 

' ‘ * ’8-25#' * 

* * ‘8:3-20* * 

83-4*3 

*83-53* * 

"85-18*" 

* * *88-21* * ’' 

* * *85-29* * 



PMADRL 

8-26# 

83-19* 

83-42 

83-52* 

85-17* 

85-20 

85-28* 



.PM&UF 

""6-22#" 

* * 83-1*9* *' 

* * * 83-20 * * * 

* ’ *83-4*9* * * 

■"85-17"' 

"8S-i*8" 




PMNUM 

8-27# 

83-21* 

83-36 

83-38* 

83-50* 

83-54* 

84-1 

84-3* 

85-22 85-30* 

PMVALU 

' ’ ‘ 8 - 28 #‘ 

* *'83-23* ' 

83-31* 

83-3*4 

83-35* * 

83-45 

83-57* 



P01 

28-15 

28-18# 








.F'd2. 

* 28-18' 

28-21# 








PQ3 

28-23 

28-28# 








.P'GRTF"' 

• • ’ '9~7#‘ • ‘ 

*' T 6-2*3* * ' 

"160-6*"" 

'177-27'" 

194-45 

231-14* 




PRINT 

158-16 

230-15# 








.PRLF 

’ *46-16# * 

'6*1-23" * 

*6*5-34 

i26-38 






PRNT1 

230-28# 

230-36 








. PRNT2* • • 

*23*0-45* *' 

* *230-4*8# * 








PRNT3 

230-51 

230-54# 








PRMTF* 

'"9-53#* 

* *174-3*0* 

"17*4-33"" 

*i 74-39 " 

230-15* 

* 230-48** * 




PROTEC 

9-21# 









PRTF2 

"iO-Si#* 

160-5 

231-15* 







PRTYEN 

10-3# 

177-17 

188-38 

188-39* 

188-47* 

190-13 




.PK’TYeV' 

"i‘0-5# " 

177-21 

188-41* 

188-44 

188-45* 

190-17 




PRTYST 

10-4# 

177-19 

188-40* 

188-43 

188-49* 

190-15 




PSD 

66-18 

73-17 

74-17 

83-i7# 






PSD1 

83-37 

83-39# 








PSD2 

’ 83-49* 

83-52# 
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PSD3 83-51 83-55# 

PSD4 84-2 84-4# 


PSDB 83-17 83-25# 
PSDB1 83-25 .. 83-26# 


PSDB2 

PSDE 

83-27 

83-26 

83-28# 

83-28 

83-42# 












PSDF 

PSDRET 

9-38# 

83-56 

58-14* 

84-6# 

73-14* 

74-14* 

83-17 

83-18* 









PSOF 

PTR1 

37-20 

7-7# 

136-14# 

44-17 

136-23 

44-18 

137-25 

45-18 

138-16 

45-19 

138-42 

46-24 

139-18 

46-27 

46-34 

46-35 

46-39 

49—28 

49-31 

49-39 

49-40 


49-44 

50-13 

50-17 

50-18 

51-22 

51 —2-3 

51-33 

52-24 

52-30 

52-50 

130-24 

130—36 

130-39 

132-24 


132-48 

132-54 

159-16 

159-22 

159-34 

159-46 

159-48 

160-27 

160-29 

161-23 

161-26 

161-27 

186-35 

186-37 


187-8 

211-16 

211-20 

211-27 

217-19 

217-25 

217-26 

217-30 

217-31 

239-14 

239-17 

239-18 



PTR1A 

7-8# 














FTR2 

7-9# 

46-25 

46-26 

46-33 

46-36 

49-29 

49-30 

49-30 

49-41 

130-25 

130-33 

130-40 

132-29 

132-51 


132-55 

185-14 

1 O -J ***** 'J 

185-26 

185-27 

185-33 

185-34 

185-35 

185-48 






PTR2A 

7-10# 

186-49 

187-1 













PU1 

22-31 

22-37# 





PU2 

22-32 

22-35 

22-42# 




PUTCHR 

18-44 

. 22-14# 





R2-BAC 

13-30# 

16-19 

157-24 




.R2.-r0.QL. 

14-34# 

...16-47 

158-21 




R2-DIS 

14-41# 

99-44 

158-27 




R2-ESC 

13-48# 

57-14 

157-42 




R2-FIL 

12-35# 

112-39 

114-20 

115-21 

116-53 

156-34 

R2-ICU 

13-14# 

101-33 

157-6 




R2-IKB 

13-19# 

39-21 

157-12 




R2-IN 

12-11# 

16-8 

156-10 




R2-IN2 

12-17# 

96-19 

156-16 




....R2UI.R0 

...1.2-40#.. 

...l5r.34... 

156-40 




R2-KY1 

13-36# 

31-15 

157-30 




.RSU fc.Y?. 

.. .1.3-42#.. 

.. .30-13... 

157-36 




R2-PRN 

14-29# 

38-17 

61-46 

95-17 

158-15 


.R2~SER. 

.. 12.-46.#.. 

...1.5-43... 

.1.56-46... 




R2-SET 

13-24# 

39-33 

15*7-18 




R2U3TA 

. 12-2*3# 

15-49 

156-22 




R2-ST0 

12-29# 

15-50 

156-28 




.R2.-.T.25, 

.. .1.4-22.#.. 

..6.1-43.. 

.. J.58-9 .. 




R2-TC 

14-4# 

61-45 

68-17 

157-48 



R2U.TL. 

14-10# 

...61-44... 

157-54 




R2-TP 

14-16# 

60-17 

158-3 




R2-XMT 

13-4#.. 

16-38 

156-52 




R2—X0N 

13-9# 

26-21 

156-57 




.RA.MO.... 

.2.3 8-1.8#.. 

. 238-40.... 





RAMI 

238-21# 

238-35 

238-36 




RAM 2 

238-38 

238-42# 





RAMCHK 

161-35 

207-19 

238-15# 




... RAMCQN . 

. .1.59-1.7... 

. 242-6# 





RAMERR 

238-30 

238-33 

238-44# 




RAMP 

62-15 

96-19# 





REPF 

10-19# 

167-50 

199-36* 

201-2 



RGL 

56-1.9# . 

56-23 





RGR 

56-20 

56-21 

56-24# 




RING 

20-5 

...56-1/-.#. 

. 297-29 ... 

. 228-29.. 

..230-53.. 

240-27 

RL1 

46-17 

46-45# 





RU-O.... 

46-45 . 

46-47# 





RLL 

46-33# 

46-37 
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RLR 

RMC1 

46-42# 

237-19# 

46-48 

237-24 

237-25 





RMC2 

237-27 

237-29# 






RMS 

62-14 

80-14# 






RMS1 

80-20 

80-21# 






RMSRET 

80-19 

80-21 

80-27# 

81-14 

81-18 



RMST 

80-24 

81-16 

81-30# 

82-2 




RMSTL 

80-23 

81-15 

82-2# 





ROMCHK 

161-34 

207-18 

237-14# 





RT1 

98-32# 

99-15 






RTS 

11-42# 

178-18* 

178-45* 





RUBOUT 

2-13# 

17-51 

214-36 

220-46 




RVVA 

9-15# 

17-42* 

17-45* 

143-23* 

145-13* 

145-31* 

222-8 

SAV2 

211-20# 

211-28 






SB1 

150-17 

150-20# 






SB 2 

150-21 

150-26# 






SB-3 

150-24 

’ i50-28#*' 






SBC 

78-43 

101-13# 






SBLR 

68-29 

'150-16#* 






SBR 

95-40 

134-22 

134-42# 

188-32 




SBRO 

134-48 

134-49# 






SBRET 

134-18 

134-20 

134-44 

134-49 

134-51# 



SBRT 

150-22 

150-33# 






SCI 

164-30 

164-32# 






.SC2. 

164-38 

164-40# 






SCH 

19-34 

61-22 

63-14 

99-42 

113-27 

117-13# 

125-37 

SCLRL 

210-18 

213-19# 

234-21 

240-30 




SCLRLR 

182-16 

196-24 

196-37 

206-24 

207-21 

213-17# 


SCR. 

61-56 

'“65-22"' 

141-13# 

'141-33 




SCRN1 

5-4# 

164-26 







SCRN2A ' ' 5-5#.16*4-29 

SCRN2B . 5-6# 164-31 


r z mm .s-r# .T6’4-:34* 

SCRN4A 5-8# 164-37 


‘‘SCRN4B 
3CRN8A 

* * * * SD1. 

SERIAL 

5-##* 

10-30# 

169-25 

156-47 

' 1'64-39''' 
175-51 
' 169-26* * * 
174-13# 

197-20* 
**i 6*9-29#* 

198-21 











SERIN 

174-18 

174-22# 













SEROUT 

174-19 

174-45# 













SETCF 

i'57-7 

162-39 

165-14# 

202-52 

203-2 










SETCRT 

163-23 

164-13# 

165-14 












SETtUS 

66-16 

69-17# 

73-15 

74-15 

77-14 

80-14 

95-13 

124-is 

134-13 

138-37 

140-13 

143-14 

147-26 

147-35 

SETLCK 

11-40# 

182-13 













.SETNOR 

17-23 

58-19 

58-38 

60-14 

66-20 

69-37# 

73-19 

74-19 

77-16 

80-16 

95-15 

124-38 

134-15 

138-39 


140-15 

143-16 

147-28 

147-37 











.SE T TAB* 

' *51-1*5#** 

* * B4-TS* 

i 8*5-49* 












SETUP 

157-19 

182-13# 













.SETUPO' 

182-13"' 

* 1 * 8 * 2 - 16 *#' 













SETUP1 

182-18# 

182-30 

182-42 

182-45 

182-48 










.SETUPS' 

182-51“' 

* *182-54 

■i*85-i*4#“ 












SETUP3 

182-57 

183-3 

188-14# 

188-33 

188-42 

188-46 

188-48 

188-50 

188-56 

189-5 





v *'' SETUP4' 

‘ 1*88-6* 

18*3-9**'* 

*193-14*#** 

193-25 

193-42 

193-49 

193-51 

193-57 







SETUPS 

183-12 

183-15 

196-14# 

196-33 

196-35 

196-46 

197-3 

197-9 

197-15 

197-21 





" ” *S£’T0*P6* 

183-18 

183-21 

199-14# 

199-25 

199-31 

199-38 

199-45 








SETUP7 

183-24 

183-27 

202-14# 

202-25 

202-31 

202-53 

203-3 








'SETUPS’ 

' 183-30 

183-33 

“206-14*#* 

207-4 

207-12 

* 207-28 

“268-26“ 
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SETUPR 

183-36 

208-29 

210-14# 211-35 

SETUPS 

183-39 

208-32 

211-13# 

SFl 

172-35 

i72-40# 


SF2 

172-38 

172-40 

172-43# 


SF3.i 73-2.173-4# 

SF4 173-9 173-12# 


.SPS.T73- i’O.17’3-i 3 ' ‘ i‘73- i 6#.’. . .... 

SF6 173-11 173-14 173-21# 

.SFS.172-23’ ” ” 172-23#-.•. 

SFB 172-21 172-26 173-1# 

.SFCkB ' ’ 1’3 i -1'5#’ ”i3ii'6 ” ” T8T-20.182-19 ” " i‘8S-i'6 ” " 188-15 i93-15’ ” " 196~i5''' ’ 199-15 202-15 '' ”206-15’'' ’ 206-34 214-24.. 

SFCKB1 181-18# 181-19 

.8FC'K:B'2’ 181 -17.i’8i-2T#... 

SFIL1 212-17# 212-21 

.SFIL2 * • ’212-18# ’ ’ ’212-20...’.. 

SFILL 206-32 207-3 207-33 212-16# 


8FL’.173-6# i’73'-22... 

SHIFTF 9-42# 33-18# 34-5 34-19 34-22* 34-30 37-15 154-23 


510 

511 

.Sll’A ”” 

512 

174-27 

174-30 

174-33”' 

174-32 

174-30# 

174-32# 

’ i 7 4-36#’ ’ 
174-34 

174-35 

174-37# 






SI3 

174-37 

174-39# 








SLP 

213-27# 

213-29 








SMS 

62-13 

77-14# 








SMS1 

77-20 

77-21# 








SMSRET 

77-19 

77-21 

77-27# 

78-14 

78-18 





SMST 

77-24 

78-16 

78-31# 

79-3 






SMSTL 

77-23 

78-15 

79-3# 







SOFTI1 

162-42 

162-46# 








SOFTIN 

156-17 

162-15# 








SOR 

136-16 

136-25# 








SPO 

24-20 

24-23# 








SP1 

24—27 

24-31# 








SP2 

24-24 

24-34# 








SP3 

24-32 

24-35# 








SPF 

18-40 

22-18 

22-42 

24-19# 

24-36 

52-57 

55-23 

55-30 


SRET 

210-14 

210-15 

210-17# 







8RT. 

174-20 

174-28 

174-31 

174-39 

174-41 

174-43 

174-48# 



SRT1 

174-53 

174-56# 








ST1 

‘21-21#' 

21-39 








ST2 

21-24 

21-37# 








StAB 

18-7 

21-19# 

33-30 

33-49 

34-26 

35-55 

o 

CM 

1 

Cl 

CO 

180-32 

206-37 

STACK 

11-32# 

16-7 








.START *’ 

15-9 

16-7# 








STARTD 

156-23 

169-17# 








STB1 

51-25# 

5i -32 








STB2 

51-26 

51-29# 








STCALL 

70-21# 

71-19 

72-19 

75-19 

76-19 

78-19 

81-19 



STFILL 

156-35 

172-18# 








STJMP 

58-20 

66-23 

70-18# 

73-22 

74-22 

77-25 

80-25 

140-18 


STOPDM 

156-29 

170-17# 








“"sfpiA '* 

182-19# 

182-23 








STP1B 

182-28# 

183-53 








STP2A 

185-15# 

185-28 

185-36 

185-50 






STP2B 

185-16# 

185-20 








STP2C 

185-25#' 

186-5 
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STP2C1 

185-26 

185-28# 



STP2D 

185-33# 

186-8 



STP2D1 

185-34 

185-36# 



STP2E 

185-41# 

186-11 



STP2F 

185-47# 

186-14 



STP2F1 

185-42 

185-48# 



STP3A 

188-15# 

188-19 



STP3B 

188-24# 

189-17 



STP3B1 

188-28 

188-30 

188-32# 


STP3C 

188-38# 

189-20 



STP3C1 

188-38 

188-43# 



STP3C2 

188-43 

188-47# 



STP3C3 

188-44 

i88-49# 



STP3D 

188-55# 

189-23 



STP3E 

189-4# 

189-26 



STP4A 

193-15# 

193-19 



STP4B 

193-24# 

194-12 



STP4C 

193-30# 

194-15 



STP4C1 

193-35 

193-37# 



STP4C2 

193-40 

193-42# 



’ STP4D ' 

193-47# 

194-18 



STP4D1 

193-47 

193-50# 



STP4E ‘ 

193-56#‘ 

1*94-21 



STP5A 

196-15# 

196-19 



STP3B 

15>i.-24# 

197-33 



STP5B1 

196-32 

196-34# 



STP5B2 

196-34 

196-35# 



STP5B3 

196-45 

196-46# 



' “ srp^c - 

‘ i'97-8# 

197-3*6 



STP5D 

197-14# 

197-39 



•"••srpsE" 

‘ 197—20# ‘ 

197-42 



STP6A 

199-15# 

199-19 



.3TP6B* ‘ 

’ 199-24#• 

T 99-57 



STP6C 

199-30# 

200-3 



.S*TP*6D* 

i 9*9-36# 

*200-6* ‘' * 



STP6E 

199-43# 

200-9 



.3TP7A* ‘ 

' 202-1*5# ‘ ‘ 

*202-1*9 * ’ 



STP7B 

202-24# 

203-15 



.STP7C* * 

■202-80#' 

’ 20:2-1*8* * 



STP7D 

202-36# 

203-21 



■ • STP7rir 

*2*02-37'' ‘ 

* 202-41#* 



STP7D2 

202-36 

202-45# 



.STP7D3 

’ 202-45‘' • • 

20*2-49#* 



STP7D4 

202-39 

202-43 

202-47 202-52# 


STP7E’ 

'203-1#' ■* 

' 203-24‘ ‘ 



STP8A 

206-15# 

206-19 



. ;srp8©* ’ 

*206-24#' * 

' 208-2' * ‘' 



STP8B1 

206-31# 

206-38 

206-43 


.STP8S3 

* 206-42# * 

’ 20*3-22 



STP8C 

206-48# 

208-5 



STP8D 

*207-9#*** 

207-52 



STP8E 

207-17# 

207-39 

208-8 


'' *STP8'£0' 

■207-20#' 

*207-35 



STP8E1 

207-32# 

207-37 



STRE't 

66-19 

70-19 

70-24# 


sue 

81-42 

101-31# 



SUC1 

ioi-i‘4 

161—33# 
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. sxci. 

SXHTC 

226-14 

157-49 

' 226-20 ' *' 
226-14# 

'226-25#'' 









. 



SXMTL 

157-55 

226-18 

'227-15#• 












SX0N1 

178-44 

178-49# 













SXR 

i.78-i4 

178-41 

178-47# 

178-49 











TAB 

19-45 

52-15# 

53-23 












T'ABTAB 

10-48# 

5o-1‘:j 

51-21 

52-23 

186-85 










TB1 

52-32 

52-47# 













.T62. 

• •52-40• • ’ 

*' '52-42#' 













TBS 

52-35 

52-41# 













‘" TB4'. 

' 52-87 ' 

' 52-39#' 













TBS 

52-46 

52-50# 













.Y&& ' 

"S2-3i " 

52-83# 













TBL1 

52-30# 

52-51 













.TBL'2 

''52-35'#' 

■ • •52-44'' ‘ 













TBR 

52-41 

52-55# 













.TCNT' * 

"11-14# 

T62-15"' 

162-37* 

175-41* 

175-42 

175-47*' 

197-2* 








TEMP 

7-17# 

33-42 

33-45 

35-19 

35-37 

35-40 

35-51 

36-16 

36-19 

45-15 

45-22 

52-16 

52—36 

52-39 


60-28 

60-32 

83-44 

83-55 

84-1 

84-2 

94-34 

94-39 

118-41 

120-17 

130-31 

132-43 

159-41 

159-45 


170-24 

170-25 

170-35 

173-4 

173-10 

173-12 

186-34 

186-40 

186-48 

186-57 

187-6 

193-31 

193-37 

238-27 

TEMPA 

7-18# 

46—27* 

46-39 

49-31* 

49-44 

118-44 

' i 20-20'' 

130-40 

132-55 

173-13 

193-32* 

238-30 



TERMIN 

168-15# 

193-39 













THOUR 

11-17# 

111-16* 

162-18 

162-34* 

176-6* 

176-7 

i76—9* 

196-36* 

232-25 






TMIN 

11-16# 

111-20* 

162-17 

162-35* 

176-2* 

176-3 

176-5* 

196-47* 

232-39 






TRA 

177-17 

177-19 

177-21 

177-23# 











TRANS 

177-16# 

178-23 

178-51 












TRANSM 

156-53 

177-14 

177-14# 

219-22 

219-26 

224-3 

224-32 








TROK 

177-25 

177-27# 













TR0K1 

177-27 

177-29# 













TR0K2 

177-28 

177-31# 













TRW 

177-25# 

177-26 

177-29 












TSCROL 

8-22# 

46-17 

46-29 

49-24 

49-27 

49-33 

121-17 

125-21* 

125-27 

126-19 

126-22 

126-37* 

126-42* 

128-16 


128-20 " 

128-34* 

154-26 












TSEC 

11-15# 

111 -24* 

162-16 

162-36* 

175-48* 

175-49 

176-1* 

197-1* 

232-21 

232-24 

232—51 




UNDEF 

61-13 

61-30 

61-31 

61-32 

61-33 

61-34 

61-35 

61-36 

61-37 

61-38 

61-47 

61-49 

61-50 

61-51 


61-52 

61-53 

61-54 

62-2 

62-17 

62-19 

62-20 

62-37# 







UNDLNA 

9-16# 

143-29* 

144-31* 

222-29 











USCP 

61-57 

65-25 

142-13# 

142-36 











USCP1 

142-15 

142-17# 













US CP 2 

142-16 

142-18# 













UXOFFS 

9-28# 

16-35* 

16-37* 

154-16 

178-49 










VSP 

11-39# 

169-27* 

170-52* 

175-56* 











VSPF 

9-54# 

31-22* 

161-42* 

169-26 

174-23* 

175-55* 









WEOL 

62-11 

75-41 

97-15# 












WLATCH 

159-30 

159-32 

160-7 

175-39 

211-31 

211-33 

231-36# 








WORK 

7-15# 

21-19 

21-33 

21-41 

23-19 

23-29 

23-31 

30-35 

30-42 

30-46 

30-48 

35-20 

35-23 

35-28 


46-31 

46-37 

49-35 

49-42 

51-17 

51-31 

52-18 

52-43 

52-48 

52-49 

52-53 

52-55 

113-19 

113-25 


130-28 

132-46 

214-20 

214-29 

215-8 

215-11 

215-12 

225-23 . 

225-24 

225-26 

225-28 

228-20 

228-21 

230-35 


230-36 

237-14 

237-21 

237-22 

238—16 

238-21 

238-28 

*238-38’ ' 

238-39 






WORK 1 

7-19# 

186-39 

186-52 

186-54 

214-17 

214-42 

214-45 

215-17 

215-19 






WORK1A 

7-20# 














W0RK2 

7-21# 

172-19 

172-21 

173-16 

186-46 

186-50 

186-56 

187-2 

187-3 

196-32 

214-19 

214-40 

214-43 

214-53 


215-20 

240-44 

240-47 

241-1 

241-4 

241-9 

241-12 

241-17 

241-20 

241-25 

241-28 




W0RK2A 

7-22# 














WORKA 

7-16# 

21-24 

23—32 

51-26 

52-37 

130-39 

132-54 

238-33 







XACR 

72-45 

81-57 

107-32# 













XALF 81-54 108-32# 
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XATR 63-53 91-14 143-49# 

XBLINA. 86-8#.87-32.117-16.117-43 .... 1.18-48.1.197.1.9.120-24 .... 121-2.4.122 7 27.124r.36 .... 124-53.126r44.142-18 


XERM 

XGATM 

72-42 

72-33 

110-34# 
109-34# 







XGli 

61-21 

91-32 

146-31# 






XHSM 

61-42 

81-39 

102-32# 

193—48 





XHSM1 

102-15 

102-34# 







X 1 CM 

61 -29 

72-39 

105-31# 






XKAM 

61-12 

65-31 

81-51 

104-31# 





XKSM 

62-10 

81-48 

103-31# 






XLO 

220-21 

220-23 

220-28# 






XL.OA 

220-44 

220-45# 







XL1 

220-45 

220-53# 







XL 10 

O *~i •“«_-~i Q 

222-35# 







XL10A 

222—88 

222-37# 







XL 11 

222-31 

222—85 

222-41# 






XL 12 

222-41 

222-47# 







XL12A 

222-45 

222-49# 







XL 13 

222-43 

222-47 

222-53# 






XL 14 

222-53 

223-2# 







XL14A 

222-57 

223-4# 







XL 15 

222-55 

223—2 

223-8# 






XL 16 

223-8 

223-22# 







XL 16 A 

223-26 

223-31# 







XL16B 

223-i3 

223-25 

223-35# 






XL 17 

223-10 

223-17 

223-20 

223—22 

223-29 

223-33 

223-39# 


XL 18 

223-41 

224-9# 







XL18B 

224-12 

224-16# 







XL18C 

224-i6 

224-20# 







XL..18D 

224-20 

224-24# 







XL18E 

224-24 

' 224-28# 







XL1A 

220-53 

220-56# 







" " XL2. 

'220-5 T'' 

"220-55" 

"22'i-T#" 






XL 20 

223-39 

224-5 

224-31# 






XL 3' . 

'22‘0~46'' ' 

"221-5#"' 







XL3A 

221-16 

221-21# 

221-25 






• ' ’ ‘ XL36' ‘' ' 

'221-15 

"221-25#" 







XL3C 

221-14 

221-31# 







‘ " XL'4 . 

22 i-9 

221-35# 







XL4A 

221-40 

221-45# 

221-50 






’ " * XL4AA •' 

'221-41'#" 

'221-54"' 







XL4B 

221-39 

221-50# 







. XL4C 

'221-38 

' 222-1#' 







XL4SET 

221-23 

221-47# 







" " XL 7. 

22i-il 

' 22T-i'9' 

' '221-29' 

22i-33 ‘ 

221-35 

221-43 

22i-4S 222-6# 


XL8 

222-8 

222-17# 







' * XL'SA' 

222—12 

'222-20' '' 

222—25# 






XL9 

222-9 

222-15 

222-17 

222—23 

222-29# 




. X CATCH 

'9-3# 

' 150-29''' 

' 231-36 ’ ’' 






XL0N1 

218-16 

218-18# 







. XLONDF 

195-15 " 

'195-2i ' 

198-10 

198-16 

198-22 

200-34 

200-40 201-3 201-9 203-49 

204-5 218-15# 

XML 2 

225-21# 

225-24 







‘ "XM‘F‘1 "" 

228-18# 

228-21 







XMP2 

228-23# 

229-19 







■' XMF3 

227-16 

228-26# 

229-15 






XMT25 

158-10 

226-22 

229-15# 






.... yjvjYC- 

'220-i8#' 

225-21 

226-28 















































Z29R0M? MICROBENCH 8051 CROSS ASSEMBLER ' (VI)-2IS ‘ ‘ 24-FEB-83’ 15:30: 06 PAGE ‘ s-21 
CROSS REFERENCE TABLE.(CREF VO1-05 ) 


XMTL 

XMTL1 

225-IS# 
225-19# 

227- 15 

228- 18 

229- 18 

230- 28 












XMTP 

XMTS 

158-4 

219-16# 

226-16 

221-17 

228-15# 

221-21 

221-26 

221-31 

221-41 

221-45 

221-51 

222-1 

222-13 

222-21 

223-14 

223-18 

223-27 


223-31 

223-45 

224-9 

224-13 

224-17 

224-21 

224-25 

224—28 

228-26 

230-30 

240-36 

240-45 

241-2 

241-10 


241-18 

241-26 

241-32 












XMTS1 

219-19# 

219-24 













XMTS2 

219-21 

219-26# 













XMTXOF 

178-17 

178-22# 













XMTXON 

178-50# 














XOFF 

2-10# 

16-34 

154-15 

174-32 

178-22 










XOFFRC 

9-33# 

. 16-31 

174-36* 

174-38* 

177-14 

231-16* 









XOFFSE 

9-27# 

178-14 

178-15* 

178-41 

178-42* 










XON 

2-9# 

16-36 

154-17 

174-37 

178-50 










XPCKB 

100-16# 

100-36 

151-15 

151-34 

152-18 










XPOS 

8-13# 

22-30 

22-37* 

23-20 

24-23 

24-25* 

24-34* 

44-21 

48-13* 

52-15 

52-55* 

53-15 

53-18* 

53-20 


53-26 

53-29* 

54-14 

55-14 

55-20 

55—24 

55-31 

55-42* 

87-31* 

94-26 

114-17 

115-18 

117-14* 

117-38 


117-42# 

118-39 

118-47* 

119-14 

119-18* 

120-15 

120-23* 

124-52* 

126-40* 

130-17 

130-20 

132-18 

137-15 

137-29 


141-13 

142-13* 

166-20 

220-28 

225-19 

225-20* 

225-22* 

225-23 

225-25* 






XR2-DI 

99-41 

99-44# 

105-14 

105-32 

152-19 










XRVM 

62-6 

145-31# 













.XST.... 

.18.Q7-8.... 

198-6 

198-12 

198-18 

200-30 

200—36 

200-42 

201-5 

203-45 

204-1 

204-7 

204-20 

204-28 

206-27 


207-24 

208-53 

209-7 

214-46 

216-17# 










.X.ST.AB . 

. .707-18 .. 

71-17 

72-17 

75-17 

76-17 

78-17 

81-17 

86-20# 

90-18 






XSTABX 

179-19 

179-23 

180-32# 

188-27 

190-2 










.XSTAJ.. 

180-20 

204-18 

204-26 

209-5 

215-18 

216-20 

217-17# 

218-18 

234-28 

234-33 

234—38 

240-41 

240-49 

241-6 


241-14 

241-22 

241-30 












.XSTATX. 

.180-20#. 

184-23 

190-7 

190-19 

190-27 

190-35 

194-47 

195-9 







XSTL 

217-21# 

217-27 













.X.S'TR.... 

.21.7-24 .. 

. .2.177.29# . 













XSTX 

180-8# 

184-17 

184-25 

189-47 

190-9 

190-21 

190-29 

194-41 

194-49 

195-11 

195-17 

196-27 

196-40 


.X.XP.QS... 


. .141.7.1.3* . 

..14.2-13 ... 

159-22 











XYPOS 

11-7# 

141-14* 

142-14 












.y.po.3 .... 

... .8~.1.4#. 

. .. X7r3t. .. 

... 237.2.1. ... 

24-26 

24-28* 

24-31* 

44-16 

46-16 

46-41 

46-42* 

49-16 

49-46 

49-47* 

55-15 


55-21 

55-25 

55-32 

55-41* 

87—23* 

94-21 

99-40 

113-14 

114-15 

114-38 

115-40 

115-45 

116-15 

116-44 


.U7r.»5* . 

118-41 

118-43 

120-17 

120-19 

121-15 

121-23* 

122-15 

122-26* 

124-35* 

126-18 

126-21 

126-26 

126-37 


126-43* 

128-15 

128-18 

128-32* 

128-33* 

130-21 

132-21 

137-20 

137-26 

141-14 

142-17* 

166-23 

220-29 

228-16 


, 228-X7* . 

22.3t.19* . 

. .22.87.20 

228-23* 

229-16 

229-17* 

230-25 

230-26* 

230-34* 

230—35 

230-38* 




ZAR 

138-40 

139-16 

143-19 

143-21 

143-32# 










ZATR 

..62-8 . 

. .1 4.3tA4# . 













ZATRO 

143-20 

143-21# 













. im . 

. J..Q-41.#. 

....1.8.~1 .... 

37-18 

57—32 

195-5 










ZDSO 

134-19 

134-20# 













. zjpses.c. 

. . 5.7-7.19. . . 

p, y 

60-14# 












ZDSSBR 

62-7 

134-13# 













ZDST 

60-38 

61-10# 













ZE1A 

60-16 

60-18# 













.ZE.1.B.... 

...60-18... 

60-20# 













ZE1C 

60-20 

60-23# 













ZE2 

58-40 

60-25 

60-36# 












ZTAB 

60-21 

140-13# 













ZTABT 

140-17 

140-29# 

140-40 













ZTABTL 140-16 140-40# 



































'■tv K 
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$$INIT O-O# 


































